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I.   INTRODUCTION  AND  BACKGROUND 

A.  AN  INTERACTIVE  COMPUTER  ASSISTED  WARGAME 

A  wargame  can  be  considered  to  be  "any  type  of  analysis  or  modeling 
that  contains  an  explicit  representation  of  two  or  more  sides  in  defining 
an  adversary  or  conflict  situation."  [Ref.  ij  Military  science  has  long 
been  interested  in  games/gaming  for  their  use  in  establishing  tactical 
and  strategic  doctrine  and  the  development  of  new  and  improved  weapon 
systems.  Low  [^Ref.  l]  has  proposed  that  "a  morphological  matrix  can  be 
constructed  in  three  dimensions  to  review  the  field  of  military  games  in 
all  its  forms."  Figure  (1.1)  is  this  classification  matrix.  The  dimen- 
sions of  the  matrix  are  technique,  scope,  and  application.  From  this 
matrix  it  is  obvious  that  there  are  many  possible  combinations  of  tech- 
nique, scope  and  application  in  the  development  of  different  wargames. 
"Clearly,  any  research  to  be  performed  in  gaming  must  be  selective  and 
focused  on  particular  elements  of  this  matrix  if  the  effort  is  not  to 
become  untenable  in  its  proportions."  fRef.  Ij 

The  air  battle  computer  program  of  this  thesis  is  an  interactive 
wargame  using  an  APPLE  III  microcomputer  programmed  in  UCSD  PASCAL. 
It  is  designed  as  a  many  on  many  engagement,  to  provide  a  tool  for 
operations  planning  and  evaluation,  as  an  interactive  computer  wargame 
and  would  be  located  as  such  in  Figure  (1.1).  This  wargame  also  has 
training  and  educational  applications  and  therefore  could  be  easily 
integrated  into  a  wargaming  or  simulation  course  as  a  teaching  aid  due 
to  its  flexibility,  ease  of  operation  and  portability. 
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Figure  1.1  Gaming  Classification  Matrix 

The  selection  of  the  Air  Battle  Analyzer  as  a  model  for  this  thesis 
was  made  because  it  provided  a  convenient  format  to  initiate  an  inter- 
active wargame  on  a  microcomputer.   It  is  designed  to  be  general  in 
approach  and  provide  much  flexibility  in  the  play  of  the  game.   It  also 
provided  a  very  convenient  and  mathematical  approach  that  was  easily 
translated  into  a  computer  program. 

B.  WHY  A  MICROCOMPUTER? 

In  the  last  few  decades,  computers  and  the  problems  to  which  they 
have  been  applied  have  been  a  primary  concern  of  both  civilian  and 
military  communities.  Computers  have  evolved  from  the  UNIVACl ,  vintage 
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1950  vacuum  tube,  through  the  transistors  of  the  late  fifties  to  the 
silicon  chips  and  integrated  circuits  of  today.  New  applications  for 
computers  are  appearing  everyday.  Therefore,  it  is  not  surprising  that 
the  military  establishment  has  diligently  researched  the  applicability 
of  the  computer  to  its  multitude  of  problems,  e.g.,  guidance  mechanisms 
for  weapons,  inventory  maintenance  of  logistic  support  equipment,  and 
computer  wargames. 

This  evolution  of  the  computer  is  phenomenal.  The  computers  of  today 
are  faster,  more  efficient,  have  a  larger  memory  capacity  and,  all  this 
notwithstanding,  are  cheaper  to  build  and  operate.  "With  eyery   major 
advance  in  solid  state  electronics  technology,  you  get  two  new  products; 
a  smaller  version  of  yesterday's  computer  and  a  more  powerful  version  of 
today's  computer."  [Ref.  2]  Microcomputers  today  are  relatively  cheap 
and  are  becoming  a  yery   common  appliance.  They  can  be  found  on  board  the 
ships  and  aircraft  of  today's  Navy.  They  are  relatively  unimposing 
machines  and  most  are  yery   simple  to  operate.  With  the  advent  of  these 
machines  on  board  our  ships,  it  has  become  imperative  that  they  be  used 
constructively. 

Wargaming  in  the  past  has  been  conducted  manually  or  at  great  expense 
on  large  computer  facilities.  Microcomputers  offer  a  yery   pleasing 
alternative  to  the  plotting  and  frustrating  tasks  of  manual  wargaming  and 
provide  a  yery   economical  alternative  to  the  large  computers.  The  NAVAL 
TACTICAL  GAME,  NAVTAG,  TRAINING  SYSTEM  is  an  example  of  a  valuable  aid  to 
teaching  tactical  doctrine  through  the  use  of  an  interactive  microcomputer 
wargame.  The  NAVTAG  system,  however,  consists  of  three  microcomputers, 
three  video  display  terminals,  three  mass  storage  devices  and  a  printer. 
This  system  is  designed  specifically  for  NAVTAG. 


C.  PURPOSE 

The  purpose  of  this  thesis  is  twofold.  First,  to  create  a  prototype 
microcomputer  version  of  the  Air  Battle  Analyzer  and  second,  to  explore 
the  capability  of  a  standard  APPLE  III  microcomputer. 
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II.     AIR  BATTLE  ANALYZER 

A.  PURPOSE 

The  Air  Battle  Analyzer  is  published  by  The  Johns  Hopkins  University 
Applied  Physics  Laboratory.  It  was  developed  in  1963  as  a  "means  for 
considering  in  an  orderly  and  economical  fashion,  how  a  hypothetical  air 
battle  may  progress."  It  is  to  be  used  "in  ascertaining  the  effects  of 
both  deployment  and  tactical  employment  of  various  weapon  systems  and 
other  equipment  on  many  different  battle  situations."  [Ref.  sj 

B.  DESCRIPTION,  TOOLS 

The  Air  Battle  Analyzer  is  used  as  a  tool  to  bring  into  perspective 
the  interactions  of  forces  in  an  air  battle.  It  is  designed  to  provide 
a  chronological  display  of  movements  and  operations  of  the  different 
units  involved.  The  primary  tool  toward  this  goal  is  the  plotting  and 
display  chart.  Figure  (2.1).  This  figure  has  several  of  the  lines  and 
units  plotted,  reflecting  what  the  chart  looks  like  after  a  battle 
scenario  has  been  enacted.  The  chart  is  sectioned  into  three  areas,  a 
range-altitude  plot,  a  range-azimuth  plot,  and  a  range-time  plot.  The 
link  between  the  areas  is  the  range  scale,  which  runs  along  the 
horizontal  axis.  This  common  link  is  designed  to  facilitate  reference 
from  one  plot  to  another. 
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Figure  2.1  Plotting  Chart  (Reduced) 

Included  with  the  chart  are  several  nomographs  and  plastic  plotting 
tools  that  are  essential  for  several  of  the  numerical  calculations 
involved,  and  that  facilitate  the  actual  plotting  of  lines  on  the  dif- 
ferent areas  of  the  chart.  Figures  (2.2)  and  (2.3)  are  examples  of  the 
associated  tools  for  use  with  the  Air  Battle  Analyzer.  Figure  (2.2)  is 
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a  Mach  Meter,  used  "for  drawing  aircraft  range-time  lines  having  slopes 
appropriate  to  the  aircraft  speed."  Figure  (2.3)  is  a  nomograph  for 
determining  radar  detection  ranges  in  a  clear  environment. 


Figure  2.2  Mach  Meter  Template  (Reduced) 
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C.   LAYOUT,  GAMEFLOW 

To  begin  the  analysis,  all  the  units  involved  and  the  radar  horizons 
of  the  fleet  units  are  plotted  on  the  range-azimuth  area  of  the  chart. 
On  the  range-time  area  are  plotted  the  early  parts  of  the  attack  profile, 
combat  air  patrol  and  early  warning  aircraft.  Also  needed  is  data  con- 
cerning the  performance  characteristics  of  the  units  and  the  weapons  of 
both  the  fleet  and  attack.  Additionally,  battle  plans  for  both  the  fleet 
and  attack  are  needed  in  order  to  stage  the  actual  attack  and  subsequent 
defense.  These  battle  plans  and  performance  characteristics  are  left 
entirely  to  the  user,  but  should  appropriately  reflect  what  the  user  de- 
sires to  analyze.  "The  battle  plans  may  be  thought  to  consist  of  the 
orders  of  battle  and  of  standard  doctrine  and  such  information  as  might 
be  given  in  a  pre-attack  briefing."  [Ref.  sj 

The  game  progresses  as  the  interactions  between  the  different  units 
begin  to  unfold  and  information  is  "received" concerning  the  attack. 
These  interactions  are  indicated  by  the  attack  profiles  on  the  range- 
altitude  chart  intersecting  with  the  radars  of  the  fleet  units.  These 
interactions  enable  the  user  to  make  decisions  concerning  the  use  and 
deployment  of  his  forces,  provided  the  appropriate  employment  of  the 
battle  plans. 

The  examination  of  the  battle  is  completed  when  the  user  decides 
the  fleet  has  become  fully  aware  of  the  nature  of  the  attack  and  has 
brought  to  bear  any  and  all  of  the  units  he  believes  should  be  used  in 
its  defense.  At  this  point,  the  analysis  and  "second  guessing"  can  be 
done  to  try  and  determine  how  the  battle  might  have  progressed  had 
different  decisions  been  made  at  certain  points  in  the  progression  of 
events. 
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III.   USERS  GUIDE 

A.   STARTUP,  BUILDING  THE  DATABASE 

The  Air  Battle  Computer  model  is  designed  to  operate  on  an  APPLE 

III  microcomputer  with  one  additional  disk  drive  and  a  video  monitor. 

The  needed  software  is  stored  on  two  5  inch  floppy  disks,  labeled 

ABA.l  and  ABA. 2.  The  game  will  start  automatically  following  these 

simple  instructions: 

i)    Place  disk  labeled  ABA.l,  label  up,  in  disk  drive  1  (built  in 
drive) . 

ii)   Place  disk  labeled  ABA. 2,  label  up,  in  disk  drive  2  (external 
drive). 

iii)  Turn  video  monitor  on. 

iv)   Turn  APPLE  III  computer  on. 

The  disk  drives  will  whir  audibly,  and  shortly  thereafter  the  APPLE  III 

PASCAL  copywrite  notice  will  appear  briefly  on  the  monitor,  followed  by 

two  screens  of  ^/ery   general  information  about  certain  aspects  of  program 

operation.   It  is  important  to  note  the  orientation  of  the  screen,  and 

that  the  figures  on  displays  are  disproportionately  large  relative  to 

the  distance  between  units. 

The  third  screen  presented  will  be  the  first  selection  menu,  Figure 

(3.1).  After  the  selection  from  the  first  menu  the  disk  drives  will 

whir  briefly  as  program  control  is  chained  to  the  programs  on  the 

second  disk.  What  follows  will  depend  on  the  menu  choice  of  the  user. 

If  option  1  was  selected,  a  screen  titled  FLEET  COMPOSITION  will  appear. 

This  screen  is  followed  by  six  others  that  present  a  general  overview 

and  specific  parameters  for  the  ships  of  the  default  database. 
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If  you  have  played  this  game  before,  then  you  may  be 
familiar  with  the  default  input  database  and/or  you 
may  have  previously  remodeled  it  to  suit  your  needs. 

Please  select  one  of  the  following  options: 

1  :  BUILD  DATABASE;  WITH  REVIEW  of  default  database. 

2  :  BUILD  DATABASE;  WITHOUT  REVIEW  ot  default  database. 

3  :  Use  the  DEFAULT  DATABASE  parameters  with  NO  REVIEW. 

4  :  Use  the  DATABASE  parameters  retained  FROM  LAST  GAME. 


Type  a  number  from  1  to  4  : 

Figure  3.1  Menu  from  Intro 

Following  the  review  of  the  fleet,  the  review  of  the  aircraft  will 
begin  with  a  screen  titled  AIRCRAFT.  The  first  screen  describes  how 
friendly  aircraft  are  deployed,  followed  by  two  screens  of  specific 
parameters  for  deployed  fighters  and  three  screens  of  specifics  on 
deployed  early  warning  aircraft.  These  six  screens  are  followed  by 
one  screen  of  specific  parameters  for  each  of  the  eighteen  attack 
aircraft.  Once  the  user  becomes  familiar  with  the  format,  these 
screens  can  be  advanced  quickly.   If  the  user  desires  to  change  some 
of  the  parameters,  these  same  values  will  be  presented  again  during 
the  process  of  changing  the  default  database. 

The  selection  menu  of  Figure  (3.2)  follows  this  review  of  the 
default  database.  For  the  novice  user  it  is  recommended  that  selection 
1  be  chosen,  primarily  because  it  does  not  require  further  manipulation 
with  the  database  prior  to  seeing  it,  using  it  and  becoming  familiar 
with  it  during  the  game  portion  of  the  program.  Thus,  this  selection 
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bypasses  a  possible  detrimental  aspect  of  the  game  for  the  novice  user, 
namely,  lengthy,  boring  and  repetitious  review  of  parameters.  After  the 
user  has  become  familiar  with  the  default  database  through  use  of  the 
game  he  is  better  able  to  decide  what  aspects  of  it  he  may  wish  to  change 
or  enhance.  After  this  selection  there  is  a  short  period  of  (jisk 
activity  while  the  default  database  files,  located  on  disk  number  one  are 
being  transferred  to  the  game  database  files  on  disk  number  two  and  the 
control  is  transferred  to  the  game  program. 

How  do  you  wish  to  set  up  the  players? 

1  :  Use  the  default  fleet/ship  and  aircraft  database. 

2  :  Use  the  default  fleet  and  build  your  own  aircraft. 

3  :  Use  the  default  aircraft  and  build  your  own  fleet. 

4  :  Build  your  own  fleet  and  aircraft  database. 

Type  a  number  from  1  to  4  : 


Figure  3.2  Menu  from  Startem 

If  the  user  decides  to  build  a  new  database,  he  is  given  the 

opportunity  to  add  units,  delete  units,  or  change  unit  parameters. 

This  is  done  on  a  question  and  answer  type  basis  with  the  program 

initiating  the  questions.  The  user  is  first  given  the  opportunity 

to  alter  the  ships'  database  provided  the  default  fleet  is  not  used. 

For  each  ship,  he  is  asked  if  he  wishes  to  delete  it  from  the  database. 

If  he  answers  negatively,  he  is  asked  if  he  wishes  to  change  any  of  its 

parameters.   If  he  answers  no,  he  is  asked  the  same  questions  for  the 
next  ship,  etc.   If  he  answers  positively  to  the  deletion,  he  is 
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immediately  asked  the  same  question  for  the  next  ship.   If  he  answers 
yes  to  changing  a  ship's  parameters,  he  is  shown  each  parameter  for 
that  ship  and  asked  if  he  wishes  to  change  it.  A  positive  response 
then  causes  the  program  to  ask  him  to  enter  the  new  value,  a  negative 
response  causes  the  program  to  retain  the  old  value.   In  either  case, 
the  program  progresses  to  the  next  parameter  value  and  the  process  is 
repeated.  After  all  the  ships  in  the  default  database  have  been  pre- 
sented, the  user  is  asked  if  he  wishes  to  add  any  ships  to  the  data- 
base. If  ships  are  added,  he  is  asked  to  enter  the  appropriate 
parameter  values. 

When  the  fleet  game  database  has  been  built,  the  user  is  given  the 
same  opportunity  to  add,  delete,  or  change  parameter  values  of  the 
attacking  aircraft.  The  screen  and  questioning  format  for  changing  the 
attack  aircraft  is  the  same  as  that  for  the  fleet  units. 

B.   PLAYING  THE  GAME 

The  first  graphic  display.  Figure  (3.3)  is  the  next  screen  presented 
to  the  user.  This  display  simply  introduces  the  shapes  that  will  be 
seen  on  the  displays  of  the  fleet  and  attack.  The  figure  for  the  fighter 
aircraft  is  used  on  both  the  fleet  display  and  the  attack  display;  however, 
the  attack  display  is  separate  and  the  user  has  the  option  of  viewing  it. 

Next  the  user  is  asked  if  he  desires  the  computer  to  step  through  the 
game  at  a  specified  time  step.   It  is  recommended  that  this  be  answered 
NO.  The  program  then  begins  to  check  for  any  radar  contacts.  This  re- 
quires scanning  the  linked  lists  several  times,  which  for  the  first  few 
time  steps  causes  a  rather  lengthy  pause  in  visual  activity. 
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Presented  below  are  the  figures  that 
will  be  used  in  the  graphic  displays 

The  actual  position  of  the  unit  shown 
will  be  the  upper  left  point  of  figure. 

SHIPS  AIRCRAFT 

FIGHTER     AEW 


+• 


RADAR  CONTACTS 
AEW   FIRE  CNTRL    AIR  INTCPT     SHIP  SRCH 

D        X  +  0 


Figure  3,3  Figures  Used  in  Graphics 

During  this  pause  the  program  provides  a  visual  indication  that  it 
is  still  operating.  The  first  display  of  the  fleet  is  then  presented 
with  the  center  of  the  screen  cluttered  with  several  units  drawn  on 
top  of  each  other.  Along  the  top  of  the  screen  appears: 

U(pscale   /   D(ownscale   /   R(ecenter 
Along  the  bottom  of  the  screen  are  a  variable  length  line  which  por- 
trays 10  nautical  miles  on  the  screen  scale,  and  below  that: 

C(ontinue  Time  :  xxx 

The  time  is  the  current  game  time,  in  minutes.  By  pressing  "D"  or  "U", 
the  user  can  downscale  or  upscale  the  display.  A  few  downscales  at 
this  point  will  begin  to  display  the  units  on  a  less  cluttered  scale. 
The  user  can  recenter  the  display  on  any  unit  by  typing  "R"  and  the 


The  symbol  "=>"  is  printed  diagonally  across  the  screen  from  the 
upper  left  corner  of  tne  screen. 
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number  of  the  unit.  A  unit  may  not  appear  on  the  screen  due  to  the 
scale  and  the  X-Y  values  of  the  screen  center.  The  user  enters  "C" 
when  he  is  familiar  with  this  view  of  the  force  layout  and  is  ready 
to  continue  the  program.  The  user  is  then  asked  if  he  wishes  to  see 
the  attack;  if  so,  it  is  displayed  in  the  same  fashion  as  the  fleet. 

Figures  (3.4)  and  (3.5)  are  examples  of  the  screen  display  of  the 
fleet.  Figure  (3.4)  exhibits  the  initial  display,  downscaled  a  few 
times,  and  Figure  (3.5)  exhibits  a  later  display  with  several  radar 
contacts  and  other  game  consequences. 

U(pscale   /   D(ownscale   /   R(ecenter 

8 


!0 


t 


9 


^ 


'— :   ==>  10  NM     ^^ 

C(ontinue  "^""  Time 


Figure  3.4     Initial   Fleet  Display 
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U(pscale    /    D(ownscale    /    R(ecenter 
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— -:  ==>  10  NM 

C(ontinue  Time  :   90 


Figure  3.5  Later  Fleet  Display 

The  next  presentation  is  the  menu  for  selecting  status  reports. 
Figure  (3.6).  These  reports  are   amplifying  information  about  the 
fleet  display.  For  example,  the  fighter/interceptor  report  contains 
the  unit  number  corresponding  to  the  number  on  the  graphic  display, 
and  the  aircraft's  coordinate  position,  position  relative  to  the 
carrier,  heading/course,  velocity,  the  remaining  minutes  of  endurance 
and  the  number  of  missiles  remaining.  The  early  warning  aircraft 
report  has  exactly  the  same  layout  and  information  as  the  fighter/ 
interceptor  with  the  exception  AEW  aircraft  do  not  carry  missiles.  The 
ship  report  indicates  the  unit  number,  ship  type,  coordinate  position, 
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Please  select  an  option  according  to  which  status 
of  forces  report  you  wish  to  peruse. 

1  :  Ships. 

2  :  Fighter  /  interceptor. 

3  :  Early  warning  aircraft. 

4  :  Radar  contacts. 

Q  :  Quit. 

NOTE  ::  COORDINATE  POSITIONS  are  SCALED  :  1  =  10  NM. 

After  your  selection  you  will  be  presented  with 
specifics  and  status  information  concerning  your 
selection.  You  will  then  be  returned  to  this 
menu  where  you  may  make  another  selection  or 
repeat  a  previous  selection. 


Figure  3.6  Status  Reports  Menu 

course  and  speed,  the  number  of  long  and  short  range  missiles  still 
onboard,  and  the  number  of  missile  hits  and  bomb  hits.  The  radar  re- 
port contains  the  contact  number,  coordinate  position,  the  contacting 
radar  type,  contacting  unit's  number,  and  if  the  contact  has  been 
killed  on  this  step. 

After  studying  these  reports,  the  user  is  presented  the  oppor- 
tunity to  redeploy  or  move  the  friendly  units.  The  next  menu.  Figure 
(3.7),  allows  the  user  to  specify  how  the  friendly  units  are  to  move 
during  the  next  time  step.  The  selections  allow  the  user  to  launch  an 
aircraft  by  selecting  aircraft  type,  and  entering  the  desired  heading, 
velocity  and  altitude.  The  user  can  initiate  the  recovery  of  an  air- 
craft. For  example,  if  a  fighter  was  out  of  missiles,  or  was  getting 
"low"  in  endurance,  by  selecting  'recover  a  fighter'  the  airborne 
fighters'  unit  numbers  and  positions  relative  to  the  carrier  are 


Please  choose  your  desired  course  of  action  : 

1  :  Move  a  fighter/ interceptor. 

2  :  Launch  a  fighter/interceptor. 

3  :  Recover  a  fighter/interceptor, 

4  :  Move  an  AEW  aircraft. 

5  :  Launch  an  AEW  aircraft. 

6  :  Recover  an  AEW  aircraft. 

7  :  Move/manuever  an  individual  ship. 

8  :  Alter  the  PIM  /  SOA  of  the  fleet. 

D  :  Review  the  display  of  forces. 
R  :  Review  the  status  of  forces. 

Q  :  Quit. 

After  your  selection,  you  will  be  asked  for  specifics 
about  your  selection,  then  you  will  be  returned  to 
this  menu  where  you  may  make  another  selection,  repeat 
a  selection  for  another  aircraft/ship  or  stop. 


Figure  3.7  Nextevents  Menu 

presented  individually .   For  each  aircraft,  the  user  is  asked  if  he 
wishes  it  recovered.  He  simply  answers  yes  for  the  aircraft  he  wishes 
to  recover;  if  he  answers  no  to  each  fighter,  then  the  program  returns 
to  the  selection  menu.  When  a  recovery  is  initiated,  the  program 
directs  the  aircraft  towards  the  carrier.  When  the  "recovered"  air- 
craft gets  within  five  nautical  miles  of  the  carrier,  an  "instant 
landing"  is  performed.  The  user  can  alter  the  heading,  velocity  or 
altitude  of  an  airborne  aircraft  or  he  can  change  the  course  and  speed 
of  the  fleet  or  of  an  individual  ship  of  the  fleet.  He  can  also  review 
the  force  displays  or  status  reports  from  this  menu. 

After  making  all  desired  changes,  the  user  is  shown  the  current 
game  time,  the  default  game  end  time,  and  is  asked  if  he  wishes  to  stop 
the  program.   If  the  program  is  not  stopped,  he  is  asked  to  enter  the 
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next  time  step  length.  Time  steps  do  not  have  to  be  equal  in  length  or 
any  specified  minimum  or  maximum  length.  However,  if  a  step  of  greater 
than  60  minutes  is  entered,  the  program  asks  the  user  to  verify  the 
entry.  The  time  step  must  be  entered  in  minutes.  After  this  entry, 
the  entire  game  process  is  then  repeated  and  the  user  will  see  the 
same  visual  indications  of  program  activity  while  the  program  checks 
for  radar  contacts.  This  is  followed  by  the  next  display  of  the  fleet. 
If  any  movements  were  ordered  from  the  event  menu,  the  units  will  be 
displayed  at  appropriate  relative  positions,  and  any  radar  contacts,  if 
made,  will  also  be  displayed. 

The  program  operates  on  a  time  step  structure.  This  is  important 
to  note  because  all  calculations  are  performed  at  the  end  of  each  time 
step.  The  time  step  increment  is  supplied  by  the  user.  No  calculations 
are  made  for  interactions  that  would  have  occurred  between  time  steps. 
Therefore,  when  interactions  between  the  forces  have  begun,  it  is 
recommended  that  time  steps  of  no  more  than  5  minutes  be  used.  Using 
the  default  database,  the  first  radar  contacts  are  made  after  approximately 

30  game  minutes  and  interactions  will  begin  after  approximately  45  game 
minutes. 
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IV.  AIR  BATTLE  COMPUTER  MODEL 

"Programs  that  use  procedures  well  are  generally 
far  easier  to  read,  easier  to  understand,  easier 
to  change,  and  easier  to  get  working."  pRef.  4, 
p.  90j 

A.  INTRODUCTION 

This  chapter  and  the  next  explain  the  program  execution.  This 
chapter  is  written  in  four  sections.  The  first  will  list  and  explain 
the  assumptions  and  give  a  brief  overview  of  the  program.  The  next 
states  a  few  arguments  for  the  programming  language  choice.  This  is 
followed  by  a  description  of  the  disks  and  the  files  residing  on  them. 
The  last  section  explains  the  organization  and  creation  of  the  database, 
including  how  the  default  database  is  formed  and  altered. 

B.  GENERAL  PROGRAM  OPERATION 

1 .  Assumptions  of  the  Program 

This  program  was  designed  to  be  as  similar  to  the  Air  Battle 
Analyzer  as  possible;  however,  there  were  several  simplifying  assump- 
tions that  were  required.  Some  of  these  assumptions  were  necessitated 
by  memory  space  limitations  in  the  actual  game  portion  of  the  program, 
as  written  for  the  APPLE  III.  The  assumptions  are; 

i)    default  database  used, 

ii )   one-sided  play, 

iii)  radar  detections  and  missile  firings, 

iv)   cartesian  coordinate  system. 
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v)   instantaneous  manuevers, 

vi)  time  step  processing. 
The  following  paragraphs  briefly  describe  each  assumption. 

A  default  database  has  been  supplied  with  the  program.  This 
was  done  to  allow  the  novice  player  to  use  the  program  immediately, 
without  a  lot  of  foreplanning  concerning  characteristics  and  battle 
plans.  The  more  experienced  player  can  easily  change  this  database. 
By  altering  the  database,  the  player  can  see  the  differences  these 
changes  make  in  the  outcome  of  the  game. 

The  attack  battle  plan  is  written  into  the  program,  i.e., 

2 
the  attack  performs  only  preplanned  manuevers.  This  was  done  in 

order  to  hasten  the  play  of  the  game  as  well  as  to  keep  it  simple 
for  the  user.  This  allows  the  user  to  concentrate  on  the  fleet's 
battle  plan  without  the  distraction  of  assuring  the  attack  follows 
his  plan.  Also,  this  frees  the  user  to  experiment  with  many  battle 
plans  against  a  common  attack  profile. 

The  default  attack  force  consists  of  eighteen  aircraft  located 
approximately  500  NM  East  of  the  fleet.  The  force  is  formed  in  six 
wings  of  three  aircraft.  All  of  the  attack  aircraft  begin  the  game  on 
a  heading  of  270.  The  first  three  aircraft  begin  at  20,000  feet  alti- 
tude and  the  rest  are  at  10,000  feet.  The  first  three  and  the  last 
six  aircraft  begin  the  game  at  350  knots  and  the  remaining  aircraft 


2 
These  manuevers  are  preplanned  in  the  sense  that  they  occur 

after  certain  time  periods.  The  attack  "flight"  profiles  may  change 

from  game  to  game  because  of  different  attack  databases  or  different 

time  step  lengths  used  throughout  the  game. 
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start  at  400  knots.  As  the  game  time  exceeds  multiples  of  20  minutes, 
each  aircraft's  heading  is  altered  towards  the  carrier.  When  the  first 
aircraft  gets  within  200  NM  of  the  carrier  the  altitude  of  each  air- 
craft is  changed  to  200  feet.  When  the  game  time  exceeds  120  minutes 
the  remaining  aircraft  begin  their  retreat  at  10,000  feet,  heading  090 
at  450  knots. 

The  attack  profile  portion  of  the  program  is  contained  in  the 
ATKUPDATE  procedure  which  resides  on  the  Thesis3b  file.  This  profile  is 
programmed  in  a  way  that  should  be  easy  to  change.  Most  of  the  parameters 
that  are  necessary  to  create  the  profile  are  written  as  constants  in  the 
declarations  section  of  the  game  program,  residing  on  file  Thesis3. 
Further  detail  on  this  procedure  can  be  found  in  Chapter  5,  with 
possibilities  of  expansion  discussed  in  Chapter  6. 

Radar  detection  of  an  attack  aircraft  occurs  when  it  comes  within 
a  certain  finite  range  of  the  friendly  unit.  That  range  is  the  lesser  of 
the  maximum  radar  range  or  the  radar  horizon,  a  function  of  the  aircraft(s) 
altitude.  In  order  for  a  unit,  attack  or  friendly,  to  fire  a  missile  or 
drop  a  bomb,  the  unit  must  have  an  available  missile  (bomb)  and  the 
target  must  be  within  minimum  and  maximum  missile  range.  For  air  inter- 
cept radars,  air-to-air  missiles,  and  air-to-surface  missiles,  the  target 
must  also  be  within  the  detection/firing  envelope. 

The  playing  area  is  an  X-Y  cartesian  coordinate  type  layout,  with 
positioning  of  aircraft  and  ships  referenced  to  their  X-Y  positions  and 
altitudes.  The  X-Y  axes  are  measured  in  nautical  miles  and  altitudes  are 
measured  in  feet.  Altitude  changes,  and  turns  are  done  instantaneously 
rather  than  gradually  over  some  time  and  distance. 
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The  game  portion  of  the  program  uses  a  time  step  structure 
vice  a  next  event  structure.  This  method  was  chosen  because  it  allows 
the  operator  to  increment  the  battle  scenario  at  a  pace  of  his  own 
choice.  Also,  this  structure  provided  a  more  convenient  approach  to 
the  interactive  aspect  of  the  program.  A  combination  time  step,  next 
event  structure  would  provide  a  more  realistic  methodology;  however, 
this  project's  completion  date  necessitated  the  strict  time  step 
approach.  The  major  drawback  to  this  approach  is  that  all  interac- 
tions between  the  fleet  and  the  attack  are  done  at  each  time  increment. 
This  necessarily  implies  that  a  lengthy  time  step,  once  interactions 
between  the  opposing  forces  have  begun,  might  cause  a  missed  interaction, 
when  in  fact  one  certainly  would  have  occurred. 
2.  Program  Operation,  Primary  Chain 

The  Air  Battle  computer  program  is  composed  of  four  distinct 
operational  units  that  are  chained  together  such  that  program  flow 
passes  from  one  logical  stage  of  operation  to  another.  The  four  units 
are  depicted  in  Figure  (4.1)  in  a  simple  flow  diagram.  These  units 
are  actually  four  distinct,  separately  compiled,  program  codefiles. 
The  APPLE  library  unit  CHAINSTUFF  was  used  as  a  mechanism  for  the 
chaining  of  the  programs.  The  chaining  is  accomplished  by  declaring, 
at  the  start  of  the  current  program,  the  filename  of  the  program  codefile 
that  is  to  be  executed  when  the  current  program  concludes. 

CHAINSTUFF  also  provides  a  construct  that  allows  a  string 
variable  to  be  passed  between  the  programs,  thus  permitting  a  very 
convenient  structure  to  allow  information  obtained  in  one  program  to 
be  referenced  in  the  next. 
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Intro 
(ThesisO) 
"Turnkey" 


JL 


Startem 
(Thesis!) 


^ 


Changem 
(ThesisZ) 


^ 


Abagame 
(Thesis3) 


Figure  4.1  Program  Chain 

This  mechanism  is  of  primary  importance  in  the  sequence 
control  of  an  interactive  computer  program,  i.e.,  how  the  user 
directs  the  sequence  of  program  operations.  The  "dialogue"  or 
sequence  of  exchanges  between  the  user  and  the  program  is  the  user's 
tool  for  this  control.  Ramsey  and  Atwood  (^Ref.  5]  identify  eight 
general  dialogue  types,  of  which  this  program  uses  two  that  require 
little  or  no  training: 

i)   question  and  answer, 

ii)  menu  selection. 

These  two  choices,  specifically  the  first,  affect  other  as- 
pects of  an  interactive  computer  program,  namely  the  data  entry. 

Further  detail  on  this  area  of  the  program  will  be  discussed  in  the 
section  on  building  the  database. 
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3.   Individual  Programs,  Briefly 

Intro  (file  ThesisO),  the  "turnkey"  program,  is  a  short 
initialization  program  that  presents  the  user  introductory  informa- 
tion pertaining  to  the  operation  of  the  program.   It  also  provides 
a  notification  of  certain  aspects  of  the  program  execution.   It  con- 
tains the  initial  option  selection  menu  as  well.  From  this  selection, 
control  passes  to  one  of  the  other  three  programs. 

Startem  (file  Thesisl)  is  executed  unless  the  fourth  option 
(use  last  game's  database)  is  selected  from  Intro.  This  program 
presents  the  parameters  established  in  the  default  database.  After 
the  review,  the  next  selection  menu  is  presented  to  allow  the  user  to 
select  which  of  the  main  areas  of  the  default  database  he  may  wish  to 
change  or  retain.  The  option  selected  from  this  menu  determines  what 
is  done  in  Changem  (file  ThesisZ),  the  program  that  builds  the  game 
database. 

Changem  is  the  program  in  which  the  user  is  presented  the 
opportunity  to  add  or  delete  units,  or  change  parameters  of  the  units 
in  the  fleet  or  attack.  The  user  first  is  asked  if  he  wishes  to  re- 
tain a  unit;  if  he  chooses  to  do  so,  he  then  is  asked  if  he  wishes 
to  change  any  of  its  parameters.   If  he  answers  positively  to  this, 
he  is  presented  with  each  of  the  parameters  individually  and  asked 
if  he  wishes  to  change  it;  if  so,  he  is  asked  to  enter  the  new  value. 

Abagame  (file  ThesisS)  is  the  actual  game  program.  This  pro- 
gram reads  the  game  database  built  in  Changem  and  forms  linked  lists 
of  the  records,  separating  the  aircraft  records  into  an  "attack"  list 
and  an  "air"  list.   It  forms  and  displays  the  graphic  figures,  then 
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goes  into  a  loop  for  the  manipulations  of  the  game  for  each  time 
step. 

C.  THE  LANGUAGE,  PASCAL 

"The  idea  of  separating  a  program  into  general  procedural 
units  that  operate  on  data,  and  then  establishing  communi- 
cation between  the  units  by  passing  data  structures  back 
and  forth  is  the  essence  of  good  computer  programming.  A 
language  like  PASCAL  gives  you  a  good  opportunity  to  de- 
velop this  strategm  since  PASCAL  provides  both  procedural 
subunits  and  a  ^jarge  assortment  of  data  structuring  techniques." 
[Ref.  4,  p.  274J 

PASCAL  was  chosen  as  the  programming  language  for  several  reasons. 
First,  the  languages  the  APPLE  III  computer  supports  limited  the  choice 
to  either  BASIC  or  PASCAL.  Second,  the  expected  length  of  the  program 
necessitated  a  choice  that  would  provide  a  document  that  could  be 
easily  read  and  easily  changed.  Third,  the  general  nature  of  PASCAL 
provides  a  natural  top-down  structuring  of  a  program. 

Primarily  PASCAL  is  much  easier  to  read  and  understand  than  BASIC. 
This  is  important  if  a  program  may  be  changed  at  a  future  time,  by 
either  the  original  or  some  other  author.  PASCAL  is  much  better 
suited  to  lengthy  programs  than  BASIC  due  to  the  procedural  subunits 
available  and  the  ease  in  which  a  program  is  broken  down  into  those 
units.  PASCAL  naturally  eases  the  programmer  into  top-down  development 
techniques. 

There  are  several  aspects  of  APPLE  III  PASCAL  that  lend  themselves 
to  the  memory  space  problems,  some  positively,  some  negatively.  One 
option  of  the  APPLE  III  PASCAL  system  seemed  to  have  very  promising 
attributes  to  the  memory  space  problem.  The  reference  manuals  indicate 
the  system  allows  the  program  to  control  what  library  units  will  be 


"loaded"  into  the  computer  memory  by  the  compiler  options  "NOLOAD"  and 
"RESIDENT".  Without  these  options,  all  library  units  "used"  by  the 
program  are  loaded  into  memory  at  the  start  of  execution,  thus  reducing 
memory  available  for  the  program.  However,  with  these  options,  the 
program  is  supposed  to  be  able  to  control  when  a  unit  is  "loaded"  into 
memory,  thus  a  unit  can  be  "resident"  only  when  it  is  needed  and  not 
resident  otherwise.  The  author  was  able  to  get  this  option  working 
for  all  but  the  graphics  unit,  PGRAPH.  Therefore,  unfortunately,  it 
was  not  included  in  the  program. 

Another  APPLE  III  PASCAL  characteristic  that  is  similar  to  the 
"noload"  option  is  program  segmentation.  A  program  can  use  15  seg- 
mented procedures,  which  are  loaded  into  memory  only  when  they  are 
active.  This  aspect  was  used  in  the  Abagame  program,  and  indeed  was 
essential . 

Still  another  area  of  UCSD  PASCAL  that  suggested  flexibility  with 
memory  space  allocation  was  the  use  and  reuse  of  memory  for  dynamic 
linked  lists.  However,  the  method  the  APPLE  III  uses  is  not  as 
flexible  and  therefore  was  not  as  useful  as  was  hoped.  The  computer 
does  not  "dispose"  of  deleted  records  on  an  individual  basis  but 
rather  they  are  "disposed"  in  a  block  of  consecutively  linked  records. 
This  aspect  was  indeed  useful,  but  it  was  not  as  flexible  as  one  that 
would  allow  the  reuse  of  memory  space  occupied  by  a  single  dynamic 
variable  after  "disposal". 

D.   FILE  DESCRIPTIONS,  DISK  ORGANIZATION,  EXECUTION  TIME 
1.  Boot  Disk,  ABA.l 

Included  on  the  Boot  Disk  are  all  the  files  needed  to  boot  the 
APPLE  Ill's  Sophisticated  Operating  System  (SOS)  files,  sos. kernel, 
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sos.interp,  and  sos. driver  as  well  as  the  PASCAL  files  system. pascal 
and  system. mi scinfo.  These  five  files  are  needed  to  boot  the  PASCAL 
system.  The  only  drivers  supported  in  the  sos. driver  file  are  the 
CONSOLE  and  GRAPHICS  drivers.  Memory  space  limitations  in  the  game 
portion  of  the  program  were  the  reason  no  other  drivers  were  supported 
in  the  sos. driver  files.  These  five  files  occupy  165  blocks  on  the 
disk.  Additionally,  the  system. library  codefile,  the  system. startup 
codefile  and  the  default  database  reside  on  the  Boot  disk. 

The  system. library  occupies  70  blocks  and  contains  the  APPLE 
library  units,  APPLESTUFF,  CHAINSTUFF,  LONGINTIO,  PASCALIO,  REALMODES, 
TRANSCEND,  and  PGRAPH.  The  system. 1 ibrary  also  contains  the  unit 
THESISTUFF,  in  which  reside  several  procedures  designed  specifically 
for  use  in  each  of  the  Air  Battle  Analyzer  programs.  The  type  declara- 
tions needed  in  each  of  the  programs  are  also  in  the  Thesi stuff  unit. 
READINT  and  a  slightly  modified  version  of  it,  READREAL,  were  obtained 

in  an  article  written  by  Edward  Heyman  [Ref.  6].  The  system. startup 

3 
codefile  is  the  name  given  to  the  codefile  of  the  Thesi sO  text  file. 

This  is  the  short  introductory  program  with  the  first  option  selection 
menu.  This  file  occupies  8  blocks  on  the  disk.  The  last  two  files  on 
the  boot  disk  are  the  files  containing  the  default  database,  together 
they  occupy  5  blocks. 

2.  Second  Disk,  ABA. 2 

The  files  residing  on  the  second  disk  are  the  last  three  of  the 
program  codefiles,  Thesisl,  ThesisZ,  ThesisS,  and  the  Thesis3,lib(rary) 


3 

This  is  a  naming  convention  on  the  APPLE  III  for  a  "turnkey"  program, 
a  program  that  executes  immediately  after  the  system  is  booted  up. 
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occupying  17,  25,  43,  and  11  blocks  respectively.  As  explained 
earlier,  Thesisl  is  the  codefile  for  the  STARTEM  program,  Thesis2 
is  the  codefile  for  CHANGEM  and  Thesis 3  the  codefile  for  ABAGAME. 
Also  residing  on  this  disk  are  the  game  database  files  created  in 
the  CHANGEM  program,  and  the  "outfile"  database  files  that  are 
created  in  ABAGAME.  These  four  database  files  will  have  varying 
lengths,  depending  on  the  changes  instituted  in  CHANGEM  and  the 
actual  play  of  the  game. 

There  are  three  units,  MAKEFORMS,  GRAFSTUFF,  and  BEARINGS 
on  the  Thesis3. library  file.  MAKEFORMS  forms  the  packed  arrays  that 
represent  the  forms  shown  in  the  graphic  displays.  GRAFSTUFF  has 
the  UPSCALE,  DOWNSCALE,  and  RECENTER  procedures  used  in  the  graphic 
displays.  BEARINGS  has  the  procedures  that  get  distances  between  two 
coordinate  positions,  DISTANCE;  bearing  from  one  position  to  another, 
DEGREES;  and  a  new  coordinate  position  after  a  time  step  has  occurred, 
GETNEWXY. 

3.  Playing  Time 

This  program  can  be  executed  in  two  stages; 

i)  review  and  build  a  database, 

ii )  and  play  the  game. 
To  do  a  thorough  job  of  each  entails  about  30  to  45  minutes  per  stage. 
When  a  user  builds  a  database,  it  is  retained  on  the  second  disk  as 
game  database  files.  These  files  are  not  altered  by  the  game  program. 
Therefore,  this  game  database  can  be  used  as  often  as  desired.  For 
each  separate  game,  the  player  can  simply  alter  his  deployment  of 
forces  and/or  change  time  step  lengths  to  view  a  new  battle  unfold. 
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With  each  execution,  of  course,  the  user  becomes  more  familiar  with 
the  required  key  strokes  necessary  to  accomplish  his  goals  and  thus 
the  playing  time  decreases.  Likewise,  after  building  a  few  databases 
for  the  game,  the  user  again  becomes  familiar  with  the  key  strokes 
required  and  thus  can  accomplish  the  first  portion  in  less  time. 

E.  ORGANIZATION  AND  CREATION  OF  THE  DATABASE 
1 .  Filemaker  and  the  Default  Database 

Figures  (4.2)  and  (4.3)  illustrate  the  record  types  used  in 
the  program;  Figure  (4.2)  is  the  ship  record  and  Figure  (4.3)  is  the 
aircraft  record.  These  figures  illustrate  the  variables  contained  in 
each  record,  the  range  of  each  variable,  and  the  meaning  of  ambiguous 
variable  names.  Note  that  the  aircraft  record  is  a  multiple  nested 
variant  record.  An  aircraft  can  be  an  "enemy"  or  "frend"  and  if  it 
is  a  "frend",  it  can  be  either  "intcpt"  (interceptor/fighter)  or  "aew' 
(early  warning  aircraft). 

Filemaker  is  the  program  that  creates  the  default  database  by 
initializing  the  variables  in  each  record.  This  program  defines  the 
number  and  types  of  units  involved  and  then  assigns  parameter  values 
to  each  unit.  If  a  new  default  database  is  desired,  the  program 
Filemaker  can  be  used  to  form  it.  The  user  would  need  to  edit  the 
text  version  of  Filemaker  and  change  whatever  aspect  of  the  file  is 
desired.  After  saving  this  textfile,  he  would  need  to  recompile  the 
new  Filemaker  text  and  then  execute  the  compiled  code  to  create  the 

new  default  database  files.  The  filenames  of  the  default  database  are 
SHIPINFILE  and  AIRINFILE.  The  parameter  values  assigned  to  the  units 
in  the  default  database  exhibit  a  close  resemblance  to  the  parametric 
values  suggested  in  the  manual  game's  example. 
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ship  = 


record 
link 
class 
num 
xpos 
ypos 
pim 
soa 
fcrng 
ssrng 
Irsam 
srsam 
Irmpk 
srmpk 
srmin 
srmax 
Irmin 
Irmax 
mhits 
bhits 
sunk 

end; 


shipntr; 

shiptype; 

0..255 

real 

real 

0..359: 

0..50; 

0..255 

0..255: 

0..255 

0..255 

real 

real 

0..255 

0..255: 

0..255: 

0..255: 

0..255 

0..255 

boolean; 


Variable  Meanings: 

A  pointer  variable  used  in  the  linked  lists. 


link 

class 

num 

xpos 

ypos 

pim 

soa 

fcrng 

ssrng 

Irsam 

srsam 

Irmpk 

srpmk 

srmin 

srmax 

1  rmi  n 

Irmax 

mhits 

bhits 

sunk 


A  program  defined  type  (cv,  dest,  crsr) 

The  unit  number,  assigned  in  Abagame. 

The  X  coordinate  position  of  the  unit. 

The  Y  coordinate  position  of  the  unit. 

Course/Heading  of  the  unit. 

Speed  of  the  unit. 

Fire  control  radar  maximum  range. 

Ship  search  radar  maximum  range. 

Number  of  long  range  SAM's. 

Number  of  short  range  SAM's. 

Long  range  missiles'  probability  of  kill. 

Short  range  missiles'  probability  of  kill. 

Short  range  missile  minimum  target  distance. 

Short  range  missile  maximum  target  distance. 

Long  range  missile  minimum  target  distance. 

Long  range  missile  maximum  target  distance. 

Number  of  missile  hits  endured. 

Number  of  bomb  hits  endured. 

True  if  (mhits  +  bhits)  GT  a  program  constant. 


Figure  4.2  Ship  Record 
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aircraft  =  record 

link 

airpntr; 

num 

0..255; 

xpos 

real  ; 

ypos 

real  ; 

alt 

0., 30000 

1 

azmth 

0..360; 

velcty 

0..2000; 

iff 

i  f f type ; 

case  iff type  of 

enemy 

( 

asm 

0..31; 

asmrng 

0..255; 

asmenv 

0..359; 

asmpk 

real   ; 

bomb 

0..31; 

frend 

bombpk 

real          ); 

{ 

acfrnd 

frndtype; 

case 

frndtype  of 

intcpt 

( 

intndr  :  0..255; 
airng  :  0..255; 
aienv  :  0..359; 
aam    :  0. .31; 
aamrng  :  0..255; 
aamenv  :  0..359; 
aampk  :  real   ); 

aew 

( 

aewndr  :  0..255  ; 
aewrng  :  0..255  )); 

end; 

record 

Variable  Meanings: 


link 

num 

xpos 

ypos 

alt 

azfflth 

velcty 

iff 

asm 

asmrng 

asmenv 

asmpk 

bomb 

bombpk 

acfrnd 

intndr 

airng 

aienv 

aam 

aamrng 

aamenv 

aampk 

aawndr 

aewrng 


A  pointer  variable  used  in  the  linked  lists. 

The  unit  number,  assigned  in  Abagame. 

The  X  coordinate  position  of  the  unit. 

The  Y  coordinate  position  of  the  unit. 

Altitude  of  theunit. 

Course/Heading  of  the  unit. 

Ground  speed  of  the  unit. 

A  program  defined  type  (enemy,  frend). 

Number  of  Air-to-Surface  missiles. 

Air-to-Surface  missile  range, 

Air-to-Surface  missile  firing  envelope. 

Air-to-Surface  missile  probability  of  kill. 

Number  of  bombs 

Bombs'   probability  of  kill, 

A  program  defined  type   (intcpt,   aew). 

Interceptors'   airborne  endurance. 

Air  intercept  radar  maximum  range. 

Air  intercept  radar  detection  envelope. 

Number  of  Air- to-Air  missiles. 

Air-to-Air  missile  range. 

Air- to- Air  missile  firing  envelope. 

Air-to-Air  missile  probability  of  kill. 

Early  warning  aircraft  airborne  endurance. 

Early  warning  radar  maximum  range. 


Figure  4.3     Aircraft  Record 
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2.  Organization  and  Format 

As  mentioned  earlier,  Startem  is  the  program  in  which  the 
default  database  is  presented,  and  Changem  is  the  program  in  which 
the  default  database  is  used  to  form  the  game  database.  Figure  (4.4) 
is  a  partial  flow  chart  for  Startem,  where  the  entry  flow  path  is  de- 
termined by  the  selection  from  the  first  menu.  The  next  selection 
menu  provides  a  more  detailed  selection  of  how  the  game  database  is 
to  be  formed.  This  is  done  in  the  GAMECHOICES  procedure.  Figure  (4.5) 
is  a  general  flow  chart  for  Changem,  where  the  entry  flow  path  is  de- 
termined by  the  selection  from  the  second  menu.  Notice  it  is  not 
always  necessary  to  pass  through  all  the  programs.  From  Intro  it  is 
possible  to  bypass  most  of  Startem  or  to  bypass  Startem  and  Changem. 
Further,  it  is  possible  to  bypass  Changem  from  Startem.  Actually, 
the  only  time  a  program  is  entirely  skipped  is  when  the  operator 
chooses  to  play  with  a  previously  established  database,  thus 
skipping  Startem  and  Changem. 

3.  Startem,  Thesisl 

The  primary  purpose  of  this  program  is  to  present  the  parameters 
of  the  default  database;  therefore,  the  largest  portion  of  this  program 
does  just  that.  However,  the  entire  program  is  executed,  i.e.,  the  de- 
fault database  is  reviewed  only  if  the  first  option,  'build  a  database 
with  review',  is  selected  from  the  menu  in  Intro.   If  the  third  option, 
'use  default  database',  is  selected,  this  program  simply  transfers  the 
default  database  files  to  the  game  database  files.  If  the  second  option, 
'build  database,  no  review',  is  selected,  this  program  presents  the  second 
selection  menu,  which  provides  a  detailed  selection  of  how  the  game  database 
is  to  be  built. 
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menu  selection  from  INTRO 


Jjd 


Build 
Database 
WITH  review 


^ 


call 
DEFAULTFORCES 


^ )M. 


DEFAULT 
->  choice 


S\L 


call 
SHIPTRANSFER 


call 
AIRTRANSFER 


-^ 


Build 
Database 
NO  review 


M 


^ 


Default 
Database 
NO  review 


^ 


Database 

from 
LAST  GAME 


^ 


CHAIN 
TO 
ABAGAME 


CALL  GAMECHOICES 


^ 


BUILD  AIR 
->  choice 


-^ 


BUILD  FLEET 
->  choice 


^ 


call 
SHIPTRANSFER 


AkL 


BUILD  ALL 
■>  choice 


Figure  4.4  Startem  Flowchart 
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GAMECHOICE  menu  selection  from  STARTEM 


-^ 


DEFAULT 


M 


AL 


BUILD  AIR 


^ 


call 
AIRCRAFTBUILD 


^ 


:^ 


BUILD  FLEET 


-iil 


call 
FLEETBUILD 


-JC 


Ak- 


BUILD  ALL 


Aki 


call 
FLEETBUILD 


M. 


call 
AIRCRAFTBUILD 


CHAIN  to  ABAGAME 


Figure  4.5  Changem  Flowchart 

The  methodology  of  the  review  is  similar  to  the  chaining  of  the 

programs,  except  that  this  is  from  an  individual  program  level.  The 

main  program  calls  the  first  procedure  which  starts  a  chain  through  four 

procedures.  The  order  of  presentation  of  the  default  database  is; 

i)   A  general  overview  of  the  ships,  including  aircraft  on  the 
carrier,  type  and  number  of  missiles,  and  type  of  radars. 

ii)  A  review  of  the  Surface-to-Air  missile  parameters,  and  the 
ships'  radar  maximum  ranges. 

iii)  A  review  of  each  ship's  parameters,  including  position, 
course,  and  speed. 

iv)  A  general  overview  of  the  aircraft  involved  and  how  they 
are  deployed. 
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v)  A  review  of  individual  aircraft  parameters  including 
position,  altitude,  course,  groundspeed,  armament,  type 
radars,  etc.  Only  airborne  aircraft  are  listed  in  this 
review. 

4,  Changem,  Thesis2 

As  indicated  in  Figure  (4.5),  Changem  is  where  the  game  data- 
base is  built.  The  presentation  of  the  variables  available  for  alter- 
ation is  done  in  the  same  order  as  it  was  in  Startem.   If  choice  four, 
'build  fleet  and  aircraft' ,  was  selected  from  the  second  menu,  then  the 
ordering  is  virtually  identical;  otherwise,  there  is  some  distortion  of 
the  ordering. 

"Careful  attention  to  the  way  the  user  sees  a  program  - 
the  so-called  'user  interface'  -  ...  makes  the  difference 
between  programs  that  are  friendly,  forgiving,  conversa- 
tional, and  humane  and  others  that  are  hostile,  rigid, 
obscure,  and  machine-like."  [Ref.  4,  p.  138] 

There  has  evolved  recently  some  general  ideas  as  to  the  nature 
of  interactive  computer  models,  and  how  they  should  be  designed  with 
respect  to  the  user.  [Ref.  ?]  Several  of  these  ideas,  specifically 
feedback,  consistency  and  simplicity,  and  how  they  have  been  incorporated 
in  Changem  are  discussed  below. 

The  user  needs  to  be  provided  feedback  for  his  actions.  It  is 
natural  for  the  user  to  need  to  know  that  his  actions  have  been  under- 
stood and  accepted.  This  feedback  should  be  obvious  and  displayed  where 
the  user  expects  to  see  it.  Changem  echoes  all  user  inputs  on  the  screen 
directly  left  of  where  the  cue  to  enter  has  occurred. 

This  presents  another  point,  consistency.  The  user  should  not 
be  required  to  guess  where  the  cues  will  appear  or  where  his  feedback 
will  occur.  This  consistency  should  be  carried  over  from  one  aspect  of 
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a  program's  operation  to  the  next.  This  idea  is  evident  throughout 
the  program  where  a  response  to  a  program  generated  question  is 
required. 

Simplicity.  The  simpler  a  program  is  to  use  the  more  it  will 
be  used.  This  also  allows  the  more  inexperienced  user  to  use  it 
correctly,  competently  and  constructively. 

As  mentioned  earlier,  a  primary  concern  of  an  interactive 
computer  program  is  the  data  entry.  Toward  this  end  Changem  and  all 
other  parts  of  the  "whole"  program  use  a  consistent  data  entry  process. 
In  each  instance  the  following  sequence  of  steps  occur: 

i)   prompt, 

ii)  provide  feedback, 

iii)  perform  error  check, 

iv)  accept  data  entry. 

A  prompt  is  provided  for  each  data  entry.   It  is  always  as  brief 
and  as  specific  as  possible.   If  the  entry  is  to  change  a  default  value, 
this  value  is  presented.   If  there  is  a  length  limit,  the  length  of  the 
entry  is  indicated  by  an  underline  of  appropriate  length.  On  entering 
the  data,  whether  it  is  a  Yes/No  response  or  a  numerical  data  entry, 
feedback  is  presented,  immediately  to  the  left  of  the  prompt  line. 

An  error  check  of  the  entry  is  performed.   If  the  entry  re- 
quires a  single  key  stroke,  as  in  answering  a  Yes/No  question,  then 
for  an  illegal  response  the  entry  is  not  accepted  and  the  user  is  asked 
to  reenter  the  response  via  an  error  message  that  again  reflects  what 


One  aspect  of  program  consistency  was  altered  in  the  graphic  displays 
The  method  of  continuina  the  program  was  purposely  altered  to  a  different 
key  stroke  than  found  elsewhere.  An  explanation  follows  in  Chapter  5, 
Abagame. 
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is  expected.   If  the  entry  is  to  be  numerical,  as  in  changing  the  X 
position  of  a  unit,  the  program  accepts  only  digits  and  characters 
acceptable  in  numbers;  it  will  not  accept  anything  else,  i.e.,  it  will 
accept  a  "+"  or  "-"  as  the  first  character  and  if  the  entry  is  a  real 
number,  a  "."  is  accepted.  If  an  integer  value  is  expected,  the  "." 
will  not.be  accepted  anywhere  in  the  entry. 
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V.     ABAGAME,  THESI$3 

A.  INTRODUCTION 

This  chapter  explains  the  game  portion  of  the  program.   It 
describes  the  main  program  and  each  of  the  major  procedures. 

B.  MAIN  PROGRAM 

Figure  (5.1)  is  a  flow  diagram  for  the  main  program  of  Abagame. 
When  this  program  is  called  the  game  database  has  been  built,  either 
in  a  previous  session  or  in  the  Changem  program.  Abagame  first  calls 
the  procedures  INITIALIZE  and  DOAIRLISTS  which  form  the  linked  lists 
from  the  game  database,  and  then  SHOWFORMS  is  called  which  presents  a 
display  of  the  forms  used  in  the  graphic  displays.  The  program  then 
asks  the  user  whether  he  wishes  to  have  the  computer  step  through  the 
game  at  a  fixed  time  step.   If  so,  the  program  will  not  call  the 
SHOWSTATUS,  NEXTEVENTS  or  NEXTSTEP  procedures  while  all  other  aspects 
of  the  program  are  identical. 

Abagame  then  begins  the  loop  that  repeats  each  of  the  following 
procedures  until  the  "game  time"  is  greater  than  the  default  "endtime" 
of  160  minutes  or  the  user  tells  the  program  to  stop  in  NEXTSTEP.  The 
first  procedures  called  are  AIRADARCNTC  and  SHIPRADARCNTC,  which 
determine  if  any  of  the  fleet  units  have  any  radar  contacts.  Then 
DISPLAGAME  is  called  and  presents  the  graphic  displays  of  the  fleet  and 
the  attack.  SHOWSTATUS  is  called  next  and  presents  status  information 
on  the  fleet  units.  The  procedures  NEXTEVENTS  and  SELECTOR,  discussed 
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Figure  5.1  Abagame  Main  Program  Flowchart 
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Fiaure  5.1  Continued 
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here  as  a  single  entity  are  called  next.  They  allow  the  user  to 
selectively  alter  the  headings  and  speeds  of  friendly  units.  NEXTSTEP 
is  called  which  allows  the  user  to  stop  the  program  or  continue  with  a 
time  step  of  his  choice.  The  program  time  is  then  updated  according 
to  the  new  time  step.  GETKILLS,  the  procedure  which  eliminates  the 
"killed"  enemy  aircraft  or  "sunk"  ships,  is  called  next.  The  last 
procedures  called  in  the  loop  are  FLTUPDATE  and  ATKUPDATE.  These  two 
procedures  update  the  fleet  and  attack  positions  according  to  the  time 
step  and  the  headings  and  speeds  of  the  units.  When  the  loop  is  exited, 
the  program  calls  MAKEOUTFILE  which  creates  "outfiles"  of  the  surviving 
aircraft  and  ships. 

C.   INITIALIZE,  DOAIRLISTS,  SHOWFORMS 

The  procedures  INITIALIZE  and  DOAIRLISTS  are  yery   similar.  They 
form  the  linked  lists  that  are  used  in  the  remainder  of  Abagame. 
Initialize  is  called  first.   It  initializes  the  boolean  variable  "stop" 
to  false,  and  the  game  time  to  zero.  The  SHIPDATA  file  is  read  from 
the  game  database  and  each  record  is  assigned  a  sequential  number  and 
placed  in  the  ship  linked  list.  Also,  the  carrier's  X  and  Y  coordinates 
are  noted.  The  carrier's  position  is  referenced  often  throughout  the 
program.  DOAIRLISTS  reads  the  AIRDATA  file  from  the  game  database  and 
according  to  whether  the  aircraft  is  an  "enemy"  or  "frend"  assigns  it 
to  the  "atk"  list  or  "air"  list.  The  attack  aircraft  are  assigned 
sequential  numbers  beginning  at  one.  Since  the  displays  are  divided 
into  attack  and  fleet,  and  the  fleet  consists  of  ships  and  friendly 
aircraft,  the  friendly  aircraft  need  to  be  assigned  non-conflicting 
numbers  with  the  ships.  Therefore,  the  friendly  aircraft  are  assigned 
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sequential  numbers  beginning  after  the  last  number  assigned  a  ship. 
This  numbering  is  designed  to  facilitate  the  user's  recognition  of 
units  between  the  graphic  displays,  the  status  displays,  and  the  "event" 
displays. 

SHOWFORMS  is  the  procedure  that  shows  the  user  the  different  forms 
that  will  be  used  in  the  graphic  displays.  This  procedure  first  calls 
the  procedures  in  the  MAKEFORMS  library  unit  that  form  the  figures,  and 
then  displays  them  on  a  graphic  display  with  appropriate  explanation. 
The  actual  forms  are  made  by  activating  or  deactivating  specific  bits 
in  two  dimensional  packed  arrays  of  boolean  variables. 

D.   GENERATING  RADAR  CONTACTS  AND  KILLS 

The  two  procedures  AIRADARCNTC  and  SHIPRADARCNTC  along  with  MAKECNTC 
have  several  functions.  They  determine  if  an  attack  aircraft  has  been 
detected  by  one  of  the  four  radar  types  of  the  fleet  or  if  it  has  been 
killed  by  a  missile  shot,  either  surface-to-air  or  air-to-air.  Missile 
firings  are  done  in  an  "uncoordinated"  mode.   If  a  contact  is  within 
the  range  and  the  firing  envelope  of  a  friendly  unit  that  unit  will 
fire.  SHIPRADARCNTC  also  determines  if  one  of  the  attack  aircraft  has 
successfully  hit  a  ship  with  a  missile  or  bomb  and  whether  that  ship 
has  been  sunk. 

MAKECNTC  forms  a  linked  list  of  radar  contacts,  determining  which 
attack  aircraft  are  in  radar  contact  and  if  more  than  one  type  radar 
is  in  contact  which  one  will  be  displayed  as  having  contact.  MAKECNTC 
requires  six  parameters  passed  to  it; 

i)    type  of  contacting  radar, 

ii)   state  of  contact,  either  alive  or  killed, 
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iii)  contact's  X  coordinate, 

iv)   contact's  Y  coordinate, 

v)    contact's  number, 

vi)   number  of  unit  holding  contact. 

AIRADARCNTC  determines  the  interactions  between  friendly  aircraft 
and  attack  aircraft.  The  overall  process  is  to  scan  the  friendly  air- 
craft list  as  an  outer  loop  and  for  each  airborne  friendly  aircraft 
scan  the  attack  aircraft  list.  For  every   combination  of  airborne 
friendly  aircraft  and  each  attack  aircraft  the  ground  distance,  as 
opposed  to  slant  distance,  and  the  radar  horizon  are  calculated. 
Radar  horizon  is  calculated  using; 

rh  :=  1.25  *  Sqrt(alt  of  a/c#l )  +  Sqrt(alt  of  a/c#2). 
If  the  friendly  aircraft  is  an  early  warning  aircraft,  then  the  dis- 
tance between  the  units  is  checked.  If  this  distance  is  less  than 
the  radar  horizon  and  the  maximum  AEW  radar  range,  then  the  procedure 
MAKECNTC  is  called,  utilizing;  'air  search  radar',  and  'contact  is 
alive'.  After  return  from  MAKECNTC,  the  next  attack  aircraft  on  the 
list  is  checked  through  this  entire  process. 

If  the  friendly  aircraft  is  an  interceptor,  the  distance  between 
the  units  is  compared  to  the  air-to-air  missile  (AAM)  maximum  range, 
and  the  radar  horizon.   If  the  distance  is  less  than  these  values, 
the  target  is  within  the  firing  envelope,  and  the  interceptor  is 
armed  with  missiles  then  a  missile  is  fired.  The  interceptor's 
missile  count  is  then  decremented  and  a  random  number  is  generated 
in  the  RANDOM  procedure  of  the  APPLESTUFF  unit  of  the  system. library. 
RANDOM  generates  a  psuedo-random  number  uniformly  distributed  between 
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zero  and  "maxint",  the  maximum  integer  represented  in  the  APPLE  III. 
If  the  random  number  is  less  than  or  equal  to  "maxint"  multiplied  by 
the  probability  of  kill  for  the  missile  then  the  attack  aircraft  is 
declared  killed  and  MAKECNTC  is  called  with;  'air  intercept  radar', 
and  'contact  is  killed'.   If  the  random  number  was  greater  than  the 
"maxint"  multiplied  by  the  missile  'pk',  then  MAKECNTC  is  called  with 
the  same  parameters  except  that  'contact  is  alive'  is  used.  After 
return  from  MAKECNTC,  the  next  attack  aircraft  on  the  list  is  checked 
through  the  process.  However,  if  the  last  check  (distance  compared 
to  missile  maximum  range,  distance  compared  to  radar  horizon,  target 
within  firing  envelope,  and  number  of  missiles  greater  than  zero)  was 
not  true  then  the  distance  is  compared  to  the  air  intercept  radar 
maximum  range,  the  radar  horizon,  and  the  air  intercept  radar  detection 
envelope.   If  the  distance  is  within  both  of  these  ranges  and  the 
target  is  within  the  detection  envelope,  then  MAKECNTC  is  called  with 
'air  intercept  radar',  and  'contact  is  alive'.   If  one  of  these  com- 
parisons is  not  true,  then  the  next  attack  aircraft  on  the  list  is 
checked  through  the  process.  The  procedure  is  exited  when  all  aircraft 
have  been  paired  for  the  comparisons. 

In  essence,  this  process  is;  check  the  shortest  missile  range;  if 
within  range,  check  for  kill;  if  not  within  range,  check  for  next 
longest  radar  range;  if  within  range,  generate  contact;  and  if  not 
within  range,  consider  the  next  aircraft. 

As  indicated,  SHIPRADARCNTC  executes  virtually  the  same  process, 
the  algorithm  is  identical,  only  the  complexity  is  changed.  Radar 
Horizon  is  calculated  using: 

rh  :=  1.25  *  Sqrt(alt  of  a/c). 
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Ships  may  differ  in  their  armament,  but  they  are  assumed  by  the  program 
to  have  the  same  capabilities;  short  range  surface-to-air  missiles 
(SRSAM),  long  range  surface-to-air  missiles  (LRSAM),  fire  control  radar, 
and  ship  search  radar.  The  SRSAM  ranges  (minimum  and  maximum)  are 
compared  to  the  distance  between  the  ship  and  attack  aircraft  first, 
then  LRSAM  ranges,  then  fire  control  radar,  then  ship  search  radar.   If 
the  test  that  is  true  is  for  SRSAM,  LRSAM,  or  the  fire  control  radar 
then  the  radar  parameter  passed  to  MAKECNTC  is  'fire  control'  otherwise 
it  is  'ship  search'.   If  the  check  was  for  a  missile  type  then  a  random 
number  is  generated  and  a  comparison  similar  to  the  one  explained 
earlier  is  made.  If, 

random  number  <=  maxint  *  missile  pk, 
is  true  then  'contact  is  killed'  is  passed  to  MAKECNTC,  otherwise 
'contact  is  alive'  is  passed. 

At  this  point  in  SHIPRADARCNTC, it  is  determined  if  the  attack 
aircraft  has  come  within  the  range  for  a  bomb  drop  or  within  range 
of  an  air-to-surface  (ASM)  missile.  Range  for  a  bomb  drop  is  checked 
first,  then  the  range  for  an  ASM  shot.  A  successful  hit  (determined 
by  the  same  method  as  above)  causes  the  bomb  hit  total  or  missile  hit 
total  to  be  incremented  by  one.  The  total  hits  on  the  ship  are  then 
compared  to  the  hit  tolerance  for  the  ship  and  if  the  tolerance  is 
exceeded,  the  ship  is  declared  sunk.  At  this  point,  the  next  attack 
aircraft  on  the  list  is  checked  through  this  entire  process.  The 
procedure  is  exited  when  all  ships  have  been  compared  with  all  attack 
aircraft. 
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MAKECNTC  is  the  procedure  that  forms  the  radar  contact  linked  list 
for  each  time  step  of  the  game.  This  procedure  scans  the  contact 
list  comparing  each  element's  X  position  and  Y  position  with  the  posi- 
tions passed  it  by  AIRADARCNTC  or  SHIPRADARCNTC  to  determine  if  this 
attack  aircraft  being  passed  is  already  on  the  list.   If  it  is  not  on 
the  list,  then  it  is  put  there.   If  this  aircraft  is  on  the  list  and 
if  the  contact  on  the  list  is  dead,  then  nothing  occurs.   If  the  in- 
coming contact  is  indicated  killed,  then  the  incoming  parameters 
replace  those  on  the  contact  list.  If  the  contact  on  the  list  is  not 
dead  already  or  indicated  dead  by  the  incoming  parameters,  the  final 
contacting  radar  is  determined  according  to  the  radar  hierachy:  fire 
control,  air  intercept,  ship  search  and  air  search.  As  an  example, 
when  a  fire  control  radar  and  an  air  intercept  radar  are  in  contact 
and  the  target  is  alive,  then  the  fire  control  radar  is  declared  the 
radar  in  contact,  the  displays  will  exhibit  the  fire  control  symbol  and 
the  status  report  shows  fire  control  as  the  radar  in  contact.  However, 
if  the  same  radars  hold  contact  and  the  interceptor  had  scored  a  kill, 
then  the  air  intercept  radar  is  used  as  the  radar  in  contact.   If  the 
ship  and  interceptor  fired  a  missile  and  both  indicated  a  kill,  then 
the  one  placed  on  the  contact  list  first  is  used  as  the  unit  in  contact, 
In  this  case,  it  would  be  the  air  intercept  radar  because  AIRADARCNTC 
procedure  is  executed  before  SHIPRADARCNTC. 

E.  DISPLAGAME  AND  GRAPHICS  DISPLAYS 

Figure  (5.2)  is  a  general  flow  diagram  for  DISPLAGAME.  DISPLAGAME 
is  the  procedure  from  which  both  the  fleet  and  attack  deployment 
displays  are  called.  The  first  thing  done  is  to  call  POSITRANSFER, 
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Figure  5.2  DISPLAGAME  Flowchart 
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which  is  a  procedure  to  build  the  two  linked  lists  that  the  procedures 
SHOWFLEET  and  SHOWATTACK  will  use  to  make  the  displays.  The  first  list 
is  the  "fit"  list  and  the  second  is  the  "ene"  list.  Each  is  a  linked 
list  of  records.  Figure  (5.3)  illustrates  these  records,  which  are 
defined  in  the  system. library  unit  GRAFSTUFF. 

The  "fit"  list  is  formed  by  scanning  the  ship  list  and  transferring 
the  required  information,  then  scanning  the  "air"  list  (friendly  air- 
craft) and,  provided  the  aircraft  is  airborne,  transferring  the  required 
information.  The  "cnt"  list  (radar  contact)  is  next  "^canned  and  the 
information  on  it  is  transferred.  Likewise,  the  "ene"  list  is  formed 
from  the  "atk"  list  (enemy  aircraft).  These  separate  lists  are  needed 
because  the  coordinate  positions  are  actually  changed  when  a  screen  is 
recentered,  upscaled  or  downscaled. 


fit  = 


ene  = 


link 

fltpntr; 

what 

f  1  tyoe ; 

num 

0..255; 

xpos 

real ; 

ypos 

real ; 

end; 

record 

link 

enepntr; 

what 

enetype; 

num 

0..255; 

xpos 

real ; 

ypos 

real ; 

end; 

Variable  Meanings: 

link  :  A  pointer  variable  used  in  the  linked  lists. 
A  program  type,  used  to  determine  what  figure 


what 

num 

xpos 

ypos 


to  use  in  tne  display, 
The  unit  number,  assigned  in  Abagame. 
The  X  coordinate  position  on  the  screen. 
The  Y  coordinate  position  on  the  screen. 


Figure  5,3  Display  Records 
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The  procedures  SHOWFLEET  and  SHOWATTACK  do  just  what  their  names 
imply.  They  scan  the  appropriate  list  ('fit'  or  'ene')  and  draw  the 
correct  figure  and  unit  number  at  the  X-Y  coordinate  position.  The 
procedure  WHATNEXT  is  then  called  and  presents  a  selection  menu,  con- 
sisting of  four  choices  that  are  drawn  on  the  graphic  force  display. 

The  user  can  upscale  or  downscale  the  display  or  recenter  on  one  of  the 

5 
figures  on  the  display  or  he  can  continue  the  program. 

The  same  menu  is  provided  on  both  the  fleet  and  attack  displays. 
The  user  is  presented  the  fleet  display  on  every  time  step  through  the 
game.  After  he  sees  this  display,  he  is  presented  the  option  of  viewing 
the  attack  display. 

The  three  procedures  SCALEUP,  SCALEDOWN,  and  RECENTER  are  in  the  thesisS. 
library  unit  GRAFSTUFF.  Additionally,  this  unit  defines  the  records  that 
form  the  "fit"  list  and  "ene"  list.  The  scaling  procedures  are  "^ery 
similar  in  style  and  operation.  The  scale  is  either  doubled  or  halved 
with  each  call  to  the  respective  procedure.  The  procedure  RECENTER  works 
in  the  following  manner.  The  appropriate  list  is  scanned  to  find  the 
unit  on  which  the  display  is  to  be  recentered.  Then  adjustment  figures 
for  each  coordinate  plane  are  calculated  that  are  the  distance  from  the 
screen's  center  to  the  unit.  Then  the  list  is  again  scanned  and  each 
unit's  X  and  Y  positions  are  redefined  according  to  the  adjustment  figures. 


5 
This  is  the  inconsistency  mentioned  earlier.  This  was  done  because 

the  type  ahead  buffer  of  the  APPLE  III  stores  key  strokes  until  the  com- 
puter can  act  on  them.  During  a  recenter  operation,  a  three  digit  number 
is  allowed.  Often  though,  the  recenter  is  done  on  a  single  or  double  digit 
unit  number  thus  a  space  or  carriage  return  is  required  to  enter  the  numBer. 
If  this  key  is  inadvertently  held  too  long,  it  would  cause  the  screen  to  re- 
center and  then  immediately  type  the  space  character.  With  the  method  used 
elsewhere,  this  would  cause  a  page  continuation.   It  was  concluded  this 
inconsistency  was  more  desirable  because  it  made  the  program  a  bit  more 
"goof  proof". 
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F.  STATUS  REPORTS,  NEXTEVENTS,  NEXTSTEP 

The  displays  are  followed  by  the  menu  for  selecting  the  status 
reports  of  the  fleet.  These  reports  show  the  display  number,  type  of 
unit,  coordinate  position,  position  relative  to  carrier  (aircraft  and 
radar  contacts  only),  heading  of  unit,  and  speed  of  unit.  These 
reports  are  amplifying  information  for  the  displays. 

When  the  user  is  through  reviewing  the  status  reports,  he  is  pre- 
sented the  menu  for  selecting  the  events  he  desires  to  take  place  in 
the  next  time  step.  When  a  selection  is  made  from  the  event  menu,  the 
selection  is  followed  by  further  questioning  to  determine  what  the  user 
desires  to  accomplish.  For  example,  if  he  chooses  to  move  a  fighter, 
he  is  presented  with  each  airborne  fighter  and  asked  if  this  is  the  one 
he  wishes  to  move.   If  he  answers  no  to  each  one,  he  is  taken  back  to 
the  menu  and  no  changes  are  made.   If  he  answers  yes  for  one,  he  is  asked 
to  enter  the  new  heading,  velocity  and  altitude  he  desires  for  the  unit. 
After  this,  he  is  presented  with  the  event  menu  again.  He  can  then  make 
another  selection  or  repeat  a  selection  for  another  aircraft  (or  ship) 
or  quit.  The  user  is  able  to  review  the  displays  and/or  the  status  re- 
ports from  this  menu.  Reviewing  the  status  reports  allows  the  user  to 
see  the  alterations  he  has  made  for  the  next  time  step. 

When  the  user  is  satisfied  with  his  actions  and  is  ready  to 
continue,  he  quits  this  menu  and  is  presented  the  "next  step"  choices. 


A  I'V-l  \^  actually  a  misnomer.  The  user  alters  the  heading,  speed 
and  altitude  of  a  unit  and  with  the  next  update  and  display  the  units 
are  moved"  accordingly. 
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He  is  told  the  current  game  time,  in  minutes,  and  is  asked  if  he  wants 
to  stop  the  program.   If  he  answers  no,  he  is  asked  to  enter  the  next 
time  step  increment.  The  last  part  of  the  program  loop  is  the  set  of 
procedures  that  update  the  positions  of  the  fleet  and  attack. 

G.  GETKILLS,  FLTUPDATE,  ATKUPDATE 

The  final  three  procedures  in  the  program  loop  update  the  linked 
lists  for  the  next  loop.  GETKILLS  serves  two  functions,  it  deletes  "sunk' 
ships  from  the  ship  list  and  deletes  "killed"  attack  aircraft  from  the 
attack  list.  First,  it  scans  the  contact  list  checking  for  "killed"  con- 
tacts. Then  for  each  "killed"  contact,  it  scans  the  "atk"  list  looking 
for  the  aircraft  that  has  matching  coordinate  positions,  and  then 
deletes  this  aircraft  from  the  "atk"  list.  When  the  scan  of  the  con- 
tact list  is  completed  and  all  "killed"  attack  aircraft  are  deleted,  the 
ship  list  is  then  scanned.  Each  "sunk"  ship  is  then  deleted  from  the 
list.  At  the  completion  of  GETKILLS,  the  lists  contain  only  alive 
aircraft  and  floating  ships. 

FLTUPDATE  is  then  called  and  updates  the  positions  of  the  fleet 
units.  The  new  ship  list  is  scanned  and  the  library  procedure  GETNEWXY 
is  called  for  each  ship.   If  the  ship  is  the  carrier,  then  the  coordi- 
nate positions  are  noted  for  future  game  reference.  The  procedure 
then  scans  the  "air" list  and  determines  endurance  for  each  airborne 
friendly  aircraft.  If  the  aircraft  does  not  have  enough  endurance  to 
last  the  time  step,  then  it  is  deleted  from  the  list.  If  the  aircraft 
has  enough  endurance,  then  the  endurance  time  is  decremented  and  the 
aircraft's  new  coordinate  positions  are  calculated  and  recorded  by 
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GETNEWXY.   If  the  aircraft  is  not  airborne,  then  the  aircraft's  coordinate 
positions  are  set  equivalent  to  the  carrier's. 

ATKUPDATE  is  the  last  procedure  called  in  the  loop  of  the  program. 
ATKUPDATE  scans  the  "atk"  list  and  calculates  and  records  the  new  coordi- 
nate positions  for  each  attack  aircraft.  It  next  implements  the  attack 
profile.  If  the  game  time  is  greater  than  the  attack  retreat  time,  then 
the  list  is  scanned  again  and  the  retreat  heading,  velocity  and  altitude 
are  placed  in  the  appropriate  variables  of  each  aircraft's  record.   If 
the  game  time  is  less  than  the  retreat  time,  then  game  time  is  checked 
against  a  "look"  time.  This  "look"  time  is  considered  to  be  an  intelli- 
gence update  time,  i.e.,  after  every  multiple  of  this  look  time  increment, 
the  attack  "gets  an  intelligence  update",  which  consists  of  the  new  head- 
ing to  the  fleet.  When  the  game  time  increases  beyond  these  "look" 
intervals,  the  heading  of  each  attack  aircraft  is  updated.  Also,  when 
the  first  attack  aircraft  gets  within  200  nautical  miles  of  the  carrier, 
each  aircraft's  altitude  is  changed  to  the  "inbound"  altitude.  Most  of 
these  "profile  variables"  are  written  into  the  program  as  constants  and 
therefore  this  "profile"  can  be  changed  by  changing  these  constant  values. 
Figure  (5.4)  is  a  list  of  the  game  constants  and  their  meanings. 

When  this  procedure  is  completed,  the  program  checks  for  a  user  de- 
clared "stop"  or  a  game  time  greater  than  the  default  "endtime".   If 
either  is  true,  the  program  exits  the  loop  and  calls  the  procedure  that 
forms  the  outfiles  of  the  program.  These  files  are  placed  on  the  second 
disk  and  can  be  printed  using  the  FILECHCKER  program.  The  files  consist 
of  information  concerning  the  forces  still  in  "action"  when  the  program 
was  halted.   If  the  program  is  not  halted,  the  game  is  repeated  beginning 
with  the  check  for  radar  contacts. 
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retrtime 

= 

120 

retrthdg 

= 
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retrtalt 

= 
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= 

400 

inbdalt 

= 

200 
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200 

incr 
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20 

tol 

= 
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hittol 

= 
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recov 

= 

5 

tmdefault 

= 

160 

Game  time  of  retreat. 
Retreat  heading. 
Retreat  altitude 
Retreat  velocity 
Inbound  attack  altitude. 
Distance  from  carrier  for  attack 
altitude  descent. 
Intelligence  update  interval. 
Miss  tolerance  for  bomb  drops. 
Number  of  hits  a  ship  can  endure, 
Instant  recovery  radial  distance, 
Game  end  default  time. 


Figure  5.4  Abagame  Program  Constants 
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VI.   FUTURE  DEVELOPMENTS,  APPLICATIONS 

A.   EXPANSION  AND  EXTENSIONS 

There  are  a  few  areas  of  the  program  that  could  be  enhanced  to  make 
the  program  more  flexible,  more  realistic,  or  operate/use  memory  more 
efficiently. 

Flexibility  could  be  enhanced  with  the  addition  of  a  larger  data- 
base or  maybe  several  different  default  databases.  More  files  could  be 
created  with  several  different  types  of  scenarios,  e.g.,  convoys,  or 
offensive  attacks  against  an  air  defense.  The  scenario  of  this  program 
has  much  room  for  expansion.  For  example,  the  attack  force  could  be 
altered  for: 

i)    the  azimuth  of  the  attack, 

ii)   more  or  fewer  aircraft, 

iii)  highly  specialized  aircraft, 

iv)   different  formations, 

v)    time  delays  between  attack  aircraft,  etc. 
It  would  be  a  trivial  matter  to  change  the  menus  and  chaining  operations 
of  Intro  and  Startem  to  allow  more  databases/scenarios.  These  changes 
could  be  instituted  as  possible  classroom  projects  in  a  wargaming  or 
simulation  course.  With  the  inclusion  of   these  ideas  into  the  program, 
the  algorithms  certainly  would  be  scrutinized  and  assuredly  enhanced  and 
streamlined,  thus  enhancing  efficiency.  The  program  was  developed  and 
written  with  "brute  force"  algorithms,  and  therefore  lacks  algorithmic 
finesse.  More  time  and  a  concentrated  effort  in  this  direction  could 
lend  more  realism  and/or  increase  the  efficiency. 
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Several  times  throughout  the  development  of  this  thesis,  the  problem 
of  memory  space  limitations  has  occurred.  Upgrading  the  computer  to  the 
256K  configuration  would  allow  a  more  expanded  and  realistic  solution  to 
the  presentations.  This  expansion  would  allow  more  drivers  in  the  system 
definition  and  more  memory  for  the  program.  The  addition  of  a  "printer" 
driver  would  enable  printed  output,  from  tables  and  lists  to  a  complete 
listing  of  the  default  or  game  database.  The  program  does  create  "outfiles" 
that  retain  information  on  and  the  status  of  the  surviving  ships  and  air- 
craft. The  textfile/program  FILECHCKER  will  print  these  files  to  a 
printer  if  the  system  is  coupled  to  an  rs232  port.   Filechcker  requires 
compilation  and  a  system  configured  for  a  "printer"  driver  before  it  can 
be  run. 

Another  avenue  of  expansion  that  could  increase  the  program  flexi- 
bility would  be  the  addition  of  several  attack  profile  (ATKUPDATE)  pro- 
cedures. If  this  were  done,  the  user  could  be  presented  with  a  menu  for 
selecting  the  profile  he  desires  to  implement  at  the  start  of  the 
Abagame  program,  then  based  on  his  selection  the  appropriate  procedure 
would  be  called  when  the  attacking  force's  positions  are  to  be  updated. 

An  enhancement  that  would  require  extensive  changes  to  the  basic 
structure,  but  could  add  a  higher  level  of  realism  would  be  the  incorpora- 
tion of  an  event  type  structure  between  the  time  steps.  With  this  game 
structure,  a  more  realistic  approach  to  radar  detections  and  missile 


This  can  be  changed  simply.  Enter  the  text  version  of  FILECHCKER 
and  change  the  string  variable  in  the  rewrite  statement  from  .rs232  to 
.silentype  or  .printer  or  the  appropriate  name  of  the  "printer"  device 
driver. 
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firing  envelopes  and  of  missile  interceptions  could  be  calculated  and 
implemented.  This  would  require  more  elaborate  mathematical  models. 
Specifically  involving  missile  and  aircraft  interaction  geometries. 

Alternatively,  all  interactions  could  be  calculated  on  a  yery   short 
time  step  structure  between  the  game  "review"  times  of  the  user  supplied 
time  step.  This  would  require  less  extensive  program  changes  than  the 
next  event  structure  and  it  would  help  eliminate  the  occurrence  of 
missed  interactions  because  of  long  time  steps. 

B.  APPLICATIONS 

The  air  battle  computer  program  is  not  designed  to  test  one's 
knowledge  of  weapon  systems  or  characteristics;  it  is  helpful  in  as- 
certaining the  effects  of  tactical  employment  of  various  types  of 
weapon  systems.   It  illustrates  the  consequences  of  decisions  and  of 
different  courses  of  actions  on  the  many  possible  interactions  between 
adversary  units  and  provides  an  easily  understood  display  of  movements 
and  operations  of  the  ships  and  aircraft.  The  air  battle  program  is 
most  helpful  with  the  timing  of  the  tactical  decisions  required  in  an 
air  battle.  The  ephemeral  nature  of  decisions  in  a  tactical  situation 
belies  the  importance  these  decisions  hold  on  the  outcome  of  a  battle. 
The  length  of  time  one  decision  affects  the  battle  is  often  ^^ery   short; 
however,  the  entire  outcome  of  the  battle  may  rest  entirely  on  one  of 
these  tactical  decisions. 

This  program  cannot  be  considered  a  cornucopia  of  solutions  to  the 
tactical  decision  problem  areas  it  presents.  It  lacks  realism  in  ^^ery 
important  aspects  of  unit  characteristics  and  the  solution  of  interaction 
geometries.  It  provides,  however,  a  learning  experience  in  a  recreational 
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environment  and  an  interesting  and  economical  method  for  exploring 
tactical  environment  decisions.  Repeated  use  of  the  program  is  re- 
quired to  appreciate  the  subtle  differences  between  one  manner  of  tactical 
decision  implementation  and  another. 
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L>  e  li  X 1 1 

,;uxt'  '.  -  ;;o  —  ;;  t"  ? 
viuxr"  :  -  ao  -  'li  r  ? 
XT     xiJxt"     -     0 

Llifcfii     x-f    "jdif    -    0 

Liieii       iJtfilrees     t-    0 
eivae     xt'     juit  0 

Liieii    iJeilr-ees     I-    130 
tsisri    ijearytjs     '.  -    000 
i-Ije     XT     yd  XT     -    0 

^iifcfti     XT      ,;uxf  0 

Linen    'Jeiirses     i-    270 
rfi^e     Jtareeis     ;-    090 
ei-je    ueaxn 

vdlue    ;-    fuuriu    ^ISO    /    px     K    a  tan    <;:'Ji+'    /    ydif))? 
XT     JOS    (vtiiue)       >    value 
Liien    XT     ;;iJif     .     0 

then  dearees  :=  130  t  value 
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yl'je    desir-ees  :-  360    +    value 
;li>t'     it"     ;;dlf      ■     0 

tiien    deai-ees  t  ■-  180    +    value 

tflae    dear-ees  J-  value 


FUNCTIGN    DIoTnNCE; 
vnR 


;uiT  r     -ji. 


dii 


;;uJ.f     I  -    ;:u    -    ;;  r*» 
'JUif      •  -     ju     -     >j  !•  f 

diijLaiictf     C --     ruuiid     (suj-L     (     sar     (,;dif)     +    a«r     (ydit"'-'')     )J 
wild  > 


UNIT    imixEFORMS  ? 

ii  I  Lciri'jxc    cude    26    data    275 


INTERFACE 


-i  iipt'u  I'm 
vjewt'u  nil 
LI  1 1,-fu  cm 
,it;w  I'd  r 

T  c  rd  r 
<j  J.  rd  r 
^s:a  rd  I' 


t^au-ked  acray  C0..5f0..73  u-P  booleanf 

t^^ijktid    array  C0..3»0..9II  uf  boolean; 

i^acked  ai'i-aa  C0..5»0..93  of  boolean; 

i^auked  ai'i-ay  L0..4r0..4J  of  boolean? 

j'acked  ari-ay  l0..4»0..43  of  boolean* 

Packed  avra-d    C0..4»0..43  of  booiearij 

Packed  ai'i-ay  C0«.4»0..4J  uf  boolean? 


FKOCEBLiRE  nloFORMSr 
PROCEDURE  rilRF ORHS  ; 


IMPLEiiENTATION 


rnOCEIiURE  nlSFQRMS; 

vnn 

i  »  J  ^  0  .  .  20  » 

ijeii  ii  I 

f  u  r     i     ;  -    0     Lu     J    do 
fur    J     ^  -    0     Lu     7    do 
Oku  II I 

oil  ir-f  u  I'm     LJ.7UJ     J-     truer 


<       SHIP    FORM 
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<..     ::3>       or     U>^>^> 


'^^^r  Vr  h-^n  ^"r- -^  ='  ""  =  "" 

.     (((i    -    1)       or       ^1  false? 

.i..X-.    ^3,0:    :=    ^^  ^      ^jp    SEARCH    R^DAR 

■^'  "^"^    :_  0   i-o  4  do 
^""l   '    •    :.  0   Lu  4  .JO 

■''l^ur  :":-  j'^^3^'i%3i.ef  ,   INTERCEPTOR  R^DA^ 

,     ,   ;_  0  ou  4  .Jo 
^"'   '  ^  •.  0  10  4  .io 

if  (<-^  -  -'   ^,'  ^,,^1  :-  true 

U.e..    ^^ '■'-','■   ^^u3  -  -f^i^***       r   FIRE  CONTROL  R-^DAR 
.i^j    c(J.ruf   LJ.'-'-'  -L   r  J.ni- 


el-.e    cJ.>-Jf 


fur  1 


;  _  0   I'O 


4  .Jo 


,  ;^  0  tu  4  .Jo         -  4)  ) 


'^'-  -■",:'  .  ^)   or  (i  +  ^ 


''."'"    fur'r   Cx.-:  •-  ^-^^-^^      <   SHIP  SEARCH  RADAR 


,  -  _  0  Uo  4  .Jo 

■'^',  '  :  ;...  0  lu  4  .JO 
T  o  r  -J  • 


C..r.Jr   C4,4j 
eii'J' 
u'l  I 'J ' 
FROCEDURE  AIRFORMSJ 


f  al-j«=f' 


vnrv 


0..20J 


,       INTERCEPTOR/ A rXACK    FORM    > 


r  or 

if 


,  rue* 


Llli-f  Ullll 


,  lUtf  f 


„.Lfurm    L-'4-         _     ._.,^^j 
„.utorm    L_^u        ^  _^^. 

j.,,oforni    LJ»o-l 
:3»4j 


.iilf  orm 
;.iiof  oi-i\i 


■C2»9  3 


t,rutf» 
Lrue» 
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ill  L-f  oi 

m 

l3 

ill  CT  U  1 

III 

l3 

•f  u  r     i 

:~ 

0 

f  u  1- 

J 

:  ^ 

iT 

( 

<  1 

Liitffi 

ei 

i>e 

cftrWt'O  1 

III 

CI 

jtrwT  u  I 

III 

l1 

sjewf  u  1 

III 

114 

^evif  u  1 

ni 

C4 

Wl  lU  t 

f3!]     :-    ti-ije? 
f  9 J     ;  -     L  rue  f 

tu    G    'Ju 

0    LU    9    iJo 

-    2 )       or     ( i    -    3 )  ) 

iTC(j-3>       av        (j- 
Liieii    dewfonn    Ci>u3     1 
else    dewfonin    Ci>oIl     ! 
I B2     I  -    t cue J 
»9II     t-    Li-uej 
f  33     J  -     I.  rue  r 
f91     J  -     U  r-ue  7 


-C   EARLY  WARNING  A/C  FORM 


4)  ) 

-  true 

-  fdi'jef 


UNIT  grafstuff; 

ii 1 1. (-iii<j>ic    cuue    32    'Jdta    33> 


INTERFACE 


CONST 

,;CUM  I 


139; 
9Gf 


•PE 
f  1  ti'i  I  i,  1- 
ti'i  lepi  I  i.  r 

T  1  OUPtf 

'.jiie  t'jHe 

■r  1  i. 


''f  ILJ 

^ei  le  i 

<  uud  t  >  tfcjrl'jrf  iaht  fdewcnt »  dicn  t »  fccnt »  sscnt )  » 

t  !^  li  le » CI  I  tc  )  ; 

itfcu  fd 

fl  ti-riL  P  > 

T  1  t'JHt  i 

0  •  •  233  r 

real  i 

r-edl  r 


1  ink 
wild  t 
Hum 
;;>^us 

efi'J  J 
reeui-'J 

1  ii  ik 

Mild  U 

I  luin 
;;i-'0'ii 

til  lij  » 


enepf  it  r  t 
ei  le  Lai-e  i 
0  .  .  253 ; 

red!  ; 


vAR 

>•' 1  Lljcj'je  T  Tltue;;t     t  -Fltpntr"? 

■i'fieudiaer  t;rieiie;;L     '.  enepiitr? 

iiucaiit  ;  iiiLeaePJ 


73 


f^'ROCEDURE  RECENTER; 
PRCCEDURE  SCnLELiF? 
PROCcDURE  oCnLEDOWN? 


rnuCEDURE  RECENTER? 


,j  ;•  ■j.jUiJ 


IHPLEMEHTftTION 


^i  it;i  It;;;  L,     i—     ei  itfUvi'jtf  » 

wi:.Liv:;     ■.  \  ei  lui  le;;  L'^  .  I  iijiii    ■: !      iiucmiL)  jiid  (enenext, 

eiituneKt     I-    eri«rie;<  t"  .  1  iickf 
;;j'J«;     t-    ;;cen    —    tfi  iene;:  t"  .  ;;pos  f 
'jcjuu     I-    yceii    -    ei  leneKf^  .  ypua  f 
tfriei  itr;;  L     I-    erieba^ser 
uiiixle    fc;rieiie;<L     •.>    tixl    iJo 

eritfiiex  t"  .;jHos     J-    enenext"  .  jipos    +    :<adui 
ei  lerie;'.  t"  . 'ji=-os     2=    erierie;;t"  .  apos    +    aaduf 
erieiie;<L     I-    ei  iene;;t'^  .  1  ink  ) 
ei  kJ  f 
eii"J 
i'l-je    bfc*:Ji.n 

flUrie;<t     J-    fiLij«ii>eT 

wiii.iw    (  (  f  1  tritj;<  t""  .rium    <>    nucent)  drid  (fltnext 

flLiifcfKt     :-    -f  1  tne;;t^  .  link; 
,;.jijj     I-    ;;i.'eri    -    f  1  lne;<t"  .  ;!i-'OS  J 
>jc<uw     I-    ycen    -    f  1  Ui  itr;;  U'"  .  ypos  J 

wiiilfef    t'lLiie;<t    <r.-    ml     do 

t'l  Lrie;<  L"^  .  ;;pus     I-    f  1  ti  lexf^  .  ."POS    +    ;;aduJ 
f  1  Liie::t"  .  apQ**     J-    f  1  ti  ie;<  t^  .  ypos    +    a«idj» 
flLnext    :-    f  1  Lneist"  .  link; 
erid  i 
end?  -C  if  > 


nil))  do 


ml))  do 


■RGCEDURE  SCnLEuF  » 

vnR 

,;juu>ycidu     C      red!  J 

u  e  is  i  1 1 

if    ji:,k:drdf 

tfi  it;rie;;i,     1=    terieb«<<j>e ' 
wiiiltf    feji'ifci  iis;<  t     w-    mi    do 
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McjiJj     J-    ;;ceri    -    ei  ierie;i  b"  .  ;:i='Os  f 
•jidiJu     i=    ycen    -    enener.f .  i:<POS  5 
fi  let  le;;  t"  .  ;;?'OS     J-    ;;cen    -    ;;diJu    /    2  J 
eriei  ie;<  t" .  afob     I-    aceii    -    'jadj    /    2? 
ernsnext     J=    enenexi^'^  .  1  ink  5 
eriu  f 
ei  I'j 

flLiitf;;t     ;-     flLbu^eJ 
wiij.i«    fltiiext     s>    nil    iJo 

'ue!:illl 

;'.c)>J^     ;-    ;;i.-eii    -    f  i  ti  le;:  L"  .  ;;f='Oi3  ? 
•j<<j'J J     t  -    yuen    -    f  1  Ine:;  f  .  ypos  > 
f  I  Lfie;<  L^  .  KPOi     »-    ;;eeii    -    ;;ado    /    2  J 
f  1  LtitsKt".  aF'O'S    ;-    -jceii    -    ^jadj    /    2f 
fllnext     I-    +"  1  tnex  f  .  1  ink  » 
iiidJ 
ei  id  f  -C  it"  }• 

«i  id » 

PROCEDURE    3CAL£D0Ui\; 

VAR 

;:>^do>a<jdJ     I     fa<3l» 

L<e::ij.i  I 

IT     jLkiii-df 
then    L>e:iiiii 

i^rieiiext     J-    enebe»i»e» 
while    enenext    <:■    iiil    do 
ue-Jiii 

::<ddo     I-    ;-.ceri    -    erierie;;t,~  .  ;jpoii  5 
■:i^u>j    J~    yceri    -    eneneNt"  . 'Jpos  » 
til  lerie;;  t~ .  ;;HO'i»     J-    ;'.ceri    -    ;;<3dj    *    2? 
enenex t" . apos     i-    acen    -    aadj    *    2f 
erierie.'jt,     J-    enene.-c  U"  .  1  ink  > 
end  F 
end 
el-^e    L>e:Jin 

flLfie;<L     I-    flbbaseJ 
wiiile    fltneKt    <>■    nil     do 
Lie^iri 

;;c(dj     J-    ;;ceri    -    f  1  Lne;;  t"  .  .xpos  » 
a<juj    i-    aceri    -    fl  bnex  L^  .  ypoia  f 
f  1  Lne;<  fc" .  ;<PO>3     :-    ;ccen    -    ,;<ido    *    2? 
f  1  Lne:-.  b" .  apo'i    !=    acen    -    a<ddu    *    2? 
flbnext     '.  -    f  1  bne;-;  b"  .  1  ink  » 
wnd? 
eiid?  -C  IT  J- 

i^nd  J 

END . 
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i='ROGRriM    FILEMftKERf 

USES    ti  iesii>  tuf  f  ? 

VnR 

■ji  iii'in+'i  it;  J  file    uf    sI"hp» 

ji.  )•  11  if  1 1  tf  i  file    uf    aiccrdfLf 

Lt-j  :  0.  .200  i 

PROCEDURE    riAKESHIPFILE; 


uwAli  1 

wi  Ui  1    •jhit-'irif , 

.  le""    do 

Lieijin 

link 

- 

ml? 

ulcfiii 

- 

cv  J 

riuin 

- 

o; 

.ipoa 

- 

3  ? 

ypos             ; 

- 

10» 

PI  in 

- 

0255 

SUd                     , 

_ 

2o; 

f  flTlii 

- 

40 ; 

ss  ri  isJ 

- 

so; 

1  rsdin 

- 

0? 

srsdin 

- 

40 ; 

1  fldt-'k 

^ 

0.4   ; 

^  ririPK. 

- 

0.7   ; 

srmi.n 

- 

Of 

'J  r-int*;-; 

- 

20? 

1  i-mii  1 

- 

10» 

1  cindi;^ 

- 

40  » 

mi  IX  L-a 

,- 

o; 

uiix  Ls 

,- 

Of 

-jUi  ik 

,- 

fdisef 

ei  iij  r 

< 

w 

p'jL     (-ji-iiHinfj 

.le>  f 

fuf    i     ;-    i     Lo    ' 

\    do 

ueiiiii 

with    jiiipii 

ifile'^    du 

btfiixri 

1  i  r  1  k 

;■=    riilf 

cidtiS 

•^    desLf 

1  luin 

.  -    Of 

p  i  in 

-    023 f 

^Ud 

-  20 ; 

f  criid 

-=     40  5 

■^  "J  nisi 

^       30  f 

1  ividin 

-       Of 

■j  r'jdin 

-    20f 

1  rmpk 

--    0.4     f 

■j  i-inpk 

-0.7     f 

wiii) 


76 


s  i-miii 
■j>  >•»><*:■■. 

1  i-mxi  I 

1  I'dte*." 

mi  II  u<j> 
bill  Ls 
^unk 

1    ; 

3  « 

4  : 

ei  lu  f 

efi'J  » 

b!ll<J  r 

•for    i     i-    1     Lo 
be^xii 

wlLil     'jillP 
ue^ii  I 
I  ink 

nijm 

(■•iin 

fen  Id 

i  iSdiii 
<3  rsdin 

i  IHlK-k 

a  rni>*k 
s  rni  j.fi 
<j»  r-ine*;; 
1  rnii.ri 
I  i'in<:i;< 
itiiii  u-j 
uiix  Ls 
'jurik 

1  : 


Or 
20? 

lo; 

40? 
0  5 
OJ 
f alsei 


uesiit  I 
bedxii 
be^iri 
be!:iii  I 

■C 
in-f  xltf ) 
■C 
4    do 


MHOS 

= 

3'f 

ypQS 

:- 

llf 

end  J 

;;>*os 

;;: 

6  f 

-tjpos 

:  - 

12? 

end; 

;<Pos 

- 

7; 

^POS 

:~ 

9» 

end ; 

;;POs 

= 

45 

ypos 

i- 

a? 

end? 

■C 

case 

> 

wx  th 

> 

for 


4    : 

end  T 
ei  id  i 
^»<jb     (si)xp 
end  > 


xiifile'^    do 

-  ri  X  1  > 

-  ci'srj 
^  Of 
^  02Gf 
=  20? 
=  40  f 

'-     aoi 
■■  20 ; 
-■  2o; 

=    0.4     f 

=  0.7   ; 
=  o; 

=    20  f 

=  lo; 

-  40 ; 

=  o; 

=  o» 

=    fdlsef 
X    of 
besiin 
be!3xii 
be'jliii 
beiixi  I 


;<pos 

- 

2? 

ypos 

- 

13; 

end; 

;<pa^ 

^ 

3 » 

ypos 

= 

14; 

i?nd; 

.•;PO^ 

- 

3r 

'jpos 

= 

13; 

end; 

;<POS 

- 

?f 

ypos 

- 

lo; 

end; 

< 

case 

> 

wx 

-ri 

> 

liiid; 


XI  if  i  ie  ; 
< 


fur  1 

MAKESHIPFILE 
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FROCcBUKE    MAKEFRENDLYrilR  f 


eaAri 

fur    i     ;^    1     Lo    24    do 

ueiiiii 

With    jx  i-ii  iTX  ie"    iJtj 

beam 

iink 

-    ri  i  1  ; 

;ii^u-j     I  - 

J  f 

'jf^U'j     ;  - 

10» 

=»1L      :- 

0  » 

d^nitii 

o; 

velc  t'j 

OJ 

iff 

-    frendi 

dcf  fluJ 

-     ill  Lt.pt  r 

ill  bnu  r 

-     120? 

■C       i 

<dx  Ilia 

=    AOf 

ciienv 

^    120; 

c<£>in 

-    6  J 

c<ain>'l<. 

—    0 . 3o  F 

ddinr-n::!     . 

-       20 » 

ddineriv    '. 

-     60 ; 

cd^e    i    i. 

jf 

1     :    bt 

iiiiri 

;;pus           ; 

- 

3 ; 

yj'us          . 

- 

10.3; 

dl  t 

- 

20000; 

ct^lllti)             i 

- 

025; 

veiuta 

= 

25; 

ei 

lU  i 

2    :    b* 

iilin 

;jKOli 

;- 

3 « 3 ; 

■JPUS 

- 

10.3; 

dl  t 

- 

20000; 

d^niLii 

,  - 

025; 

velcta 

,- 

23 ; 

ei 

id; 

eriij  f 

<         c. 

3se          > 

« 1 1  u  J 

-C              U 

*i 

th          > 

pu  I     (air  ifif  J 

L  le>  ; 

tfliu  r 

1'         1 

'or            > 

fur    i     :-     1     Lu    o 

do 

bean  1 

WiLii    cJiPiiif 

lie''    uo 

bt^Uiii 

link 

I  -     r  1  i  1  r 

.■;>-'U"j 

;  -  3 ; 

liPOS 

.-  lo; 

ciil 

.-  o; 

d^in  LI  1 

:-^         o; 

veicta 

■  -         0 ; 

iff 

-    frendi 

<i(t.-f  ri  id 

-    jew ; 

jewiHj  r 

-  24o; 

ill      iiiinubes 
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<iiewrri3    t-    200  i 
ea-iae    i    u+" 


1    : 

beilxn 

;:i^ui3 

- 

OJ 

ah'OS 

- 

23f 

<=<il 

- 

13000; 

dzmlii 

- 

025; 

velcta 

,- 

25; 

end  5 

-)   • 

ue^in 

;:pu<5 

;- 

12; 

a^»os 

- 

26; 

dll 

- 

15000; 

a  ^111  th 

- 

025; 

velcta 

-^ 

25; 

end  5 

3    • 

L'esiin 

- 

;;pos 

^ 

19$ 

•^i-os 

-2 

14; 

cjIL 

- 

15000; 

d^inLh 

- 

025; 

vtjlcta     . 

- 

25; 

end  J 

eri'Jf 

■C          c=t^ 

>e 

> 

ei  idf 

-C            ^ 

41 

.ii       > 

Kut    <aii'ii 

-if  lie); 

end? 

■C            1 

'oi 

> 

MAKEFRENDLYAIR 


PROCEDURE    HnKErtTTACKAIR; 


ue^xi  1 

fur    i     J-    1     Lo    6 

do 

fur    J     i -    1     La    3 

do 

Lieiiii  1 

MX  Li  1    <ii  I'lnf  i  le 

"    do 

be^xi'i 

link 

- 

r  1 1 1  ; 

d^mih 

,- 

270 ; 

iff 

^ 

enem^ 

; 

•ismpk 

;- 

0 .  60 ; 

jiiiienv 

- 

i8o; 

<s  'j  III  (•  n  a 

- 

30 ; 

uomijpk. 

- 

0 .  55 ; 

i-j"je    i    t 

jf 

1     :    at 

?ain 

if 

J  = 

1 

Li  ten 

besiin 

alie 

if    ^     - 

;<POS    ;-    30.  o; 


ypos     i-    30. O;     end 


titen    beam    r-fo-s     J-    50. o;    ypos 
«lse    be^in    ;;pos     I-    50.3;    ypos 

diL  :-  20000; 

veicL'j    :-       350 ; 

<3sin         ;  -  6 ; 


30.3;    end 
29.3;    end; 
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uuiriu 
wriu  f 
Lie  si  in 

if  J  - 
tiieri 
el'ie 


ji  I, 

V  t?  i  u  L  *j 

j'^in 

Liuini.) 
ei  lU  r 
ueiiifi 

if    J 
tiien 


cssjt;    1 


besixn  ;:!='OS    J  = 

if    o    =    2 

then    ue£iiri    ;<poi» 
else    bedin    ;'.pos 

==  loooo; 

=-        400  r 

-      OF 

-C         case    2  > 


60 . 0 ;  apos 

;-    60. 3  J    *jf»os 
;-    60*5>    ypos 


=^    1 


dit 
velc-Ls 

uumu 
enu  i 

be<jin 
if    J 
Lfien 
eliae 


besSin  kpos    ;=    60.0? 

if    J    =    2 

then    bes^in    ;(po«s 
else    besJin    ;xf»os 

-  loooo; 

^   400J 
=  6  J 

-  OJ 
<         ca^e  3     > 


60.35  ypos 
60. 5 f  ypos 


=    1 


beiJm 


;(POS 
if    J    -    2 

then    besiin    ;;pos 
else    beiJin    -xpos 


=    60. Of 


I-     60. 3f      ■^!='QS 

'.  -    60.5  5    ^pos 


ait 

^    lOOOO; 

velcta 

-:        400  5 

■3^01 

,^    65 

uuinLi 

:-   05 

tfl  lU  J 

■C         case    4            > 

ueaii  1 

if    J    - 

L 

then 

besJiii             ;;pus     I 

el-je 

Lf    a    -    2 

then    Lieisin    ;;fu'j 

lii'jc;     Li«':jj.ii     ;;PUi> 

dit 

-      1  0  (/  0  0  5 

V  fc!  i  L.-  t  "ji 

.330  5 

J'J>III 

-     4r 

buiiiu 

-    2  5 

enu  5 

"■I                L'aSl::;      3                    y 

beiiiri 

if    J    -    ' 

L 

thei  1 

Lieiiiii             ;;i-'Oa     i 

e  i  -J  e    J 

LT     a    ==    2 

tiien    besiii'i    ;;pos 

tfl'Jie    bediii    ;;Pov5 

ait 

-     10000  5 

veiu  ta 

oSO  5 

40.0  5    end 

40.35    end 
39.3  5    end  5 


apos     :=    30.05    end 


30.3  5    end 
29.5  5    end 5 


apos     1=    20.0  5     end 


20.3  5    end 
19.55    end5 


63.0  5 


apos    t=    33.0  5    end 


'■  -    o3  .  Z  i     apoa 


J 3. 3 5     end 
3- . 3  5     end  5 


-    oa  »  ^ » 


-  oa.a»     apOS 

-  o3.3  5     aPos 


25.0  5     and 

25 .35    end 
24.5  5    end? 
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<:)sm 

:^   4 

f 

uuiiib 

*  z:.       "^ 

-c 

i 

case    6 

> 

et'iu  i 
eiiij  f 

< 

< 

case 

with 

> 
> 

HU  L     <  <ii  r' 
e  1 1  ■  J  > 

Ill-file)  f 

■c 

for/for 

■c 

> 
MAKEATTACKAIR 

ueain  -C         MAKEFILES 

isfw  r  A  te    ( -iii  j.>^  ii  if  i  lii>  '  np2  Jshipiiifile.dcjta'  )  f 

I'ewi-ioe    <  <jj.  rii'it' i  le    T  '  riK2  J  ai  rinf  i  le .  da  ta  '  )  » 

in<sKesiiii-'T'i  lef 

iiiaku+'  reridl^iai  f  J 

in<jkea  t  Lac-kai  r  f 

ciuse     V  si'iipiiif  lief  luck  )  » 

close  < ai rinf ile » luck ) » 
eri.j.  -C    MAKEFILES        > 


i- nuGnnrt    rILi£CHCKER> 
iJSES        tiiesi^tut'ff 

VnR 

^i  ii-'uu  Lf  i  le       •     file    af    shipf 
cJiiuaLfile       I     file    of    aircraftf 

1 »  u  i  0 . «  200  ? 

kiiiu  I  •oc.rifiii? 

U'j  Lf  i  le       t  te;-;  t,  5 

PROCEDURE  3HIPCHECK; 

PROCEDURE  SHIPURITE; 

ije^iri 
wiLii    shpuu  tf  1  le"    'Jo 
Liesiiii 
wri  ueiii<  uu  Lf  1  le  )  ?  wri  teln(outf  ile  )  »  wri  teln(  outf  i  le  >  f 

wr  1  Lelri  (oij  of  1  le  >  '  'fkirid»'»    number     '  fnumJ  2  »  '  .  '  )  f 

J  fi  Leli  I  <  uu  Lf  i  le  )  i 

wriUe       <  uu  Lf  1  le  >  '  X-'f    coordinate    i-'osition  '.     (')? 

un  Leii  i<  uutf  1  ie»  ;;pos  lAllr't'  ryp-osl  4  :  1  f  '  )  .  '  )  ; 

wri  tell  i<  ou  Lf  1  le  f  '  Cu  r- ran  t    directiori    of    movement  t     '  »  Pim  J  3  »  '  .  '  )  » 

wri Leli  I  ( ouLfi leT  ' Current    speed    of    advance  I     '  fsoa I3r '  ,  '  )  r 

wi-i  LeiiKuuLfi  le?  '  Number    of    luiia     raniSe    SAM  '  ' -s  ;     '  f  1  rsam  I  3  f  '  .  '  )  ? 

wri  Lelii  <  Qu  Lf  1  le  »  '  Numoe  r    of    short     i-ansie    3AM''s  J     '  >  srsain  J  3  >  '  .  '  )  5 

wri  Leli  i(  uu  Lf  1  le »  '  lyijinber    of    anissile    hits    taken  t     '  » mhi  ts  I  3  f  '  .     )  ? 

wri  Lelii  <  uuLfi  ie»  'Number    of    bomb    hits     taken  '.     '  »  bhi  ts  J  3  »  '  .  '  )  f 

trJI  lU  i  <  wi  Ln  > 

end;  -C  SHIPURITE  > 
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UbtiiXll 

i     t  -    0  ? 

wri  Lelnv  <Ju  tf  i  itf  ?  '  SHIPS 

wiiile    NOT    eu-f     ( 'jin^ou  tf  i  le  >    do 

1     '.  -     1    r     1  f 

waLIi    \aiit-o'j  t-Pi  ie"    do 


'  )  r 


-  'Destroyer' 

-  'Cnjiser'  » 
<  Cijse 


-V  .        KlIHJ 

de^U     ',    kiiiu 

(-•rsr     ;     kind 

1^1  id  i 

ii  ii.'-'w  li  Le  f 

if     i    mud    3-0 

Liieri    uesSin 

f»<3ile    (outfile)? 
wri  belli (outf  lie f  ' 
end  F 
t'fidJ  "C 

Jei,     <  ji  ii-uij  tf  i  le  )  ; 
tfiidJ  -C 

uiuse    <  3ii>-ou  tf  i  1  a  f  lock  )  ; 
undJ  < 


SHIPS       cont. 


for/with 
while  ] 

SHIPCHECK 


rnOCEDURE    rilRCHECKJ 

PROCEDURE    riTTrrCKURITEJ 


Ut^Hi-t  1 

wi  Li 

Ji  i-ou  Lf 

il 

e'""    do 

Lie^ii  1 

W  1 

i  Leii  1 C  ou 

Lf 

lie)  i 

W  1 

1  Leli  1  <  uu 

Lf 

i  le  »  ' 

w  1 

i  oeli  1  (  uu 

tf 

i  ie )  f 

Ul  1' 

1 Le       <  uu 

Lf 

ilef  - 

wi- 

1  l/elri(uu 

tf 

X  1  e  » ;■; 

W  1* 

1 Lein  <  uu 

Lf 

lief' 

w  r 

i  Leli  1 V  uu 

Lf 

i  ie  »  ' 

u  r 

1  Leli  1  <  uu 

tf 

iler  ' 

w  r 

J.  Leli  1 V  uu 

Lf 

i  le »  ' 

W  1 

i  Leii  1  (  uutf 

ile» 

|j  1 1  d  f 

■C 

end  T 

-C 

uri teln<  ouLf i le)f  wriLtfln(outfile)j 

'rkintir'    dircrafL    number    '  r  nuin  J  3»  '  .  '  )  r 


X-/    coordiridte    position 
pos  iAtlt  ' f  '  f ypos { 4  J  1 r  '  )  ♦  '  ) 
Current    course    /    ^leadind 
CuiM-erit    velocity 
CuiTent    alLiLude 
Number    of    i^SM'  's 
Number    of    bomb' 's 

wi  LI  I         y 

ATTnCKURITE    > 


(  '  )  » 

'  f  3::in'th  J  5  >  ' 

' » velc ty J3» 

f al t  J  5 »  '  .  ' 

'  f asm ; 5 » ' . 

' r nbomb  J  5 » 


.  '  )  f 

'  .  '  )  J 
) ; 

' ) ; 

' . ' ) ; 
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FnOCEDURE  IWTCFTURITE; 

ueii  HI 

wxLii    <Ji,  I'OU  tf  i  le"    'Jo 
Lie!ji.ri 

wri  Leiri(outf  lie)  J  wri  Lelntoutf  i  Id)  »  upi  teln(  out-f  i  le )  » 

wr-i  Leiriv'outf  i  le»  '  '?kin«J»'     number     '  »riijin  :  3f  '  .  '  )  f 

w  fi  teii  I  (  oij  tf  i  ie  )  i 

wiiLfcf       (outf  ile »  '  X-Y    coor-rJinate    posxtiun  !     (')? 

wr  i.  Leli  I  (  ou  tf  i  le  » .•■<pus  I  411  r  '  t  '  r  <jkos  I  4  J 1  »')«')  » 

ui  r-i  Ltjlii  V  Qu  Lf  1  le  »  '  Cu  r  fen  t    course    /    headinsi  t     '  »  asmth  I  5  r  '  .  '  )  » 

wr-i  Lfli  i<  uu  tf  1  le»  '  CurTerit    velocity  3     '  »  velcty  J  3  r  '  .  '  )  » 

w  ci  teln  <  ou  tf  1  ie »  '  Cu  r  i-en  t    altitude  I     '  jalt  J5  »  '  .  '  )  5 

ui  fi  Leln  (  ou  tfi  ie  f  '  Number    uf    AAM''i  J     '  >  aam  J  5 »  '  .  '  )  » 

w  f  1  tell  I  (outfile)  f 

wr'i  tein  ( uutf  i  ie»  '  Mo  te    ',    Altitude    ■=    0       =  =  >    Aircraft    is    on    carrier.')? 
end  F  -C  wi  til  > 

endr  <  ATTACKURITE  > 

PROCEDURE    riEUURITE? 

uei^ii  I 

with    airoutfiltf"    do 
ueiiii  I 

wr-iteiri(outfile)»  writeIri(outfile)»  writelri(  out  file)? 

w  r-i  tein  (  ou  tf  1  ie  »  '  'Fk,irid»'     aircraft    number     '  »  num  J  3»  '  .  '  )  J 

wfiteiri(outfiie)  i 

write       ( ou tf 1 lef ' X-Y    coordinate    position  J     (')? 

wi-i  tein  C  ou  tf  lie  fxpos  J  4?  1 »  '  f  '  f^jfO'^i  4  J 1  f  '  )  .  '  )  J 

wri  teiii  (  outfi  le  »' Cur  rent    course    /    headin<^  i     '  »  asmth  J5»  '  .  '  )  » 

wri  teiri(  ou  tf  1  ie»  '  Cu  r-T-en  t    velocita  J     '  »  velcta  J  5  »  '  .  '  )  5 

wr L tein ( ou tf 1 ie » ' Cu r ren t    altitude  I     ' f ai t t 5 f ' . ' ) f 

wci  teiii(outfiie)  i 

wi-i  telii<outf  lieF  'Note    :     Aititude    -    0       -  =  .'■■    Aircraft    is    on    carrier.')? 
f  nd  F  -C  wi  tl  I  > 

lit  id »  -C  ATTACKURITE  > 

L.eain  <  AIRCHECK  > 

:-t;-je  t    <  ai  rou  tf  iIbf  '  aba .  2  J  a  1  routf  i  ie  .data  '  )  f 

i      3  =     0  F 

t^aile    (uutf  lie  )  J 

wi-itein     <uutfileF'  AIRCRAFT  ')? 

while    NOT    «uf    < ai rou tf lie)    do 
bean  I 

i     : -     1     +     If 
With    airuutfiie"    do 
c<3^e     iff    uf 

eiieiii^     3     be^in       kind     I-     'Enema'?        attackwriteJ  end? 

fieiiij     ;     case    acfrnd    uf 

iiitcpt     ;     besiiii 

kind     J-     '  F idh ter/ in tercep t ' » 
intcf»twr  itef 
end  F 
aew  '     beijin 
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kind    1=     'Early    wai-ninai'f 


end  i 

< 

case 

acf rnd 

> 

-C 

case 

iff 

> 

and  f 

ei  id  i 

aet,     <  ai  ro'jtf  i.  le ;  f 
if    J.    ifiud    3-0 
llien    aeilin 

(-asie    Coutfile)? 

wrxLeln     <uijtfile»'  AIRCRAFT       cont.  ')» 

ei  id  J 
end»  -C       Willie  > 

vjluse     <  ai  ro'J  tf  1  le»  lui.'k  >  f 
end?  -C  cjiicheck  > 

L.e::iin  -C  CHECKFILES  > 

i-ewri  be     (  uu  Lf  i  le  »  '  .  ('5232  '  )  J 

jiiipcheck » 

<Ji  I'd  leck  J 

cluie  ( ou Lf i le» lock) 
end.  -C        CHECKFILES        > 
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PKOGRrin    INTRO 5 

U3E3    ci  idii  i"3  tuTt" »  Lhe^jistuff  i 
PROCEDURE    introduction; 


■jl:  ri  ici  1 1, 
w  n  1  Leli  I 
M  r*  i  L  tf  1 1 1 
wri  Leli  I 
wr X  Leln 
wfi  Lein 
wrx  tbf ill 
ui'i  Lein 
w  I'l  l«eln 
w  ri Leln 
wci  Lelii 
wi'x  teln 
ur-i  Leli  I 

wri Leln 
w  fx  Li^li  I 
wri Leln 
w  ex  Le  In 
wi'x  Leln 
ei  (iJ  ; 


>o<clr>;  jCitiCi  I  L  CO  (  aff  )  »  ui'xbein;       wrilelnf 

('Thx-^    xi     Lhe    AIR    B(«irTLE    ANALYSER     (ABA)     startup    p  roa  ram.  '  )  f 

'If    'jou    iiave    not    already    done    so»    please    insert    the    ABA.  2    disk     ')? 

<  '  xn    dxik    di'ive    number    2.  '  )  f 

(  '  TI  n'oijsJliou  L    Lite    e;;ecuLxon    of    this    prod  ram    ■^ou    will    bs'^i 

<  '  pfe'iented  wxtn  several  selectxon  options.  In  each  xnstance')? 
('please  choose  'joui'  desired  opLxon  by  typing  the  appropriate')? 
(  '  responce»  xf  you  hei-e  a  beep»  simply  attempt  to  re-enter.')? 

('C.df(:i    should  be  taken  not  Lo  hold  down  a  selection  key.     ')> 

<  'IL  may  produce  unde  tei-miried  results  due  to  Lhe  auto  repeat  ')» 
(funcLiun  uf  Lhe  keybo.»rd.  ')» 


'You  may  wisii  Lo  have  available  some  paper  in  order  to  make 
'iioLes  Lo  yourself^  or  Lo  plot  the  current  Positions  of  the 
'foi-ces»  and/or  Lo  deteiMiime  movements  of  your  forces.')? 
wriLelnJ     cunLxnuef 
■C      xntroductxon     > 


) 


PROCEDURE  INTROTWO; 


bediii 

sc  i-i  Id  I  L 
wr X  Leln 
w  f-x  Leln 
wr X  Leln 
wrx  Leln 
wrx  Leln 
wrx  Leln 
wrx  Leln 
wrx  Lexi  I 
Wi'x  Leln 
wrx  Leln 
wrx  Leln 
wr'x  Leii  i 
wrx  Leln 
wrx  Leln 
wrx  Leln 
wrx  Leli  I 
wrx  Lein 
wrx  ttfln 
wrx  Leln 
ei  id  ; 


•ovclr)?     scrncntro C of f ) r    wrx Leln? 
'For  your  cunvenxence  Lhe  xnxtxjl  PosxLions  are  determined  ')» 
'and  layed  out  on  a  100;<100  ilrid  wiier-e  each  unit  is  10  NM.  ')» 
'Fur  e;',ample  if  the  carrier  is  at  (10?10)  and  an  attack  ')» 
'airci'afL  IS  aL  CS9,ZtiO)f     Lite  aircraft  is  795  nautical  miles  ')? 
'due  East  of  Lhe  cari-ier.  Ths    drid  is  oriented  as  followsi  ')? 

000  -  Nortii  IS  Lo  the  top.     ')f 

'         090  ^  East  xy  to  Lhe  ri3ht.     ')? 

180  -  3ouL!i  IS  to  the  bottom.     '  )  » 

'  '                     270  =-  ulesL  xs  to  the  left.     '  )  » 


'Due  Lo  Lite  naLijre  of  the  screen  and  LJie  computer  sjraphics  ' 
'Liiere  wxll  appear  Lo  be  some  distortions  when  the  lOOulOO 
'jrxd  xs  li-ansf  ormed  to  the  screen' 's  dimensions.   Also?  be 
'jwc<i'tt  LiiaL  the  jistarices  depicted  on  the  araphic  displays 
'cji-e  decfptive  due  to  tlie  si^e  of     the  f  injures.   ')? 

wrx  Lei  11  r 
<■  '  Now  Let''s  Beam   ')> 

wrx Leln?      continue? 


)  ? 

)  ? 
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PROCEDURE  INTRO  three; 

iicri  ic-ti  uru<ci  r' )  ;  sc  men  t  ro  ( of -P  >  »  wrxtelnf  uiPiteinf 

wi-i  uelri<  '  If    auij    ii<ave    plained    this    ^iiaiiie    before    then    you    ina«rf    be    familiar')? 
wrj.Leln<  'wiuii    Lhw    uefaulL    iiij^ut    data    base    anrj/or    aou    may    nave     ')? 
wri  ueii  I  <  '  (- i'brviuus»ia     remodel  tfd    it    to    suit    your    needs.')? 
wri  tell  I? 

w  ri  tell  I  (' Please    select    one    of     tlie    failowind    Oftions     I        ')> 
write  111?  writeliiJ 

writeiri('  1     :       BUILD    DATABASE?    WITH    REVIEW    of    default    database.')? 

wri  telii? 

writeliiv'  2     :       BUILD    DATABASE?     WITHOUT    REVIEW    uf    default    database.')? 

wri  te  1117 

-.   ii.eiiii,  3     :       use     Li  n-  -      i  ABASE    parameters    with    NO    REVIEW.        ')? 

u  r  X  t  e  1 1 1  ? 

wiioeiiiv'  -J     ;       Use     the    DATABASE    i^arameters     r-etained    FROH    LAST    GAME.')? 

writelii?  writelii?  writeln? 

write        v '        TsHe    a    number    from     1     to    4        I  ')? 

read     v  seleo  tiuii )  ? 
■jC  rnoi  i  t  ro  von)  ? 

wiiile    NOT     (selection     in     C'l'..'4'3)     do 
Lied  11 1 

sc  II  ici  1 1  ro  (  bel )  ?  wntelnr 

write    <  'i-iust    be    a    number    from    1     to    4     !  !       —    Please    try    ads  in    '.        '  )? 

read     (selection) 
ei  id? 
end  f 

ue-Jin  -C  INTROTHESIS  > 

111  t  ruduc  t  ion  ? 
lilt  I'O  twu  r 
lilt  ro  ti  I  ree  ? 
case    selection    of 
'  1  '      I     be^ II I 

setcvai     ('complete    pi-oaram')? 
setcii.jiii    (  '  .d2/ tliesisl  .code  '  )  ? 
ei  id  f 
■  2  '     :    beiiin 

setcvai     ('allow    ciiande  '  )  ? 
se  tchain     (  '  .d2/  triesisl .  code  '  )  ? 
end  ; 
'  3 '     I    bediii 

setcvai     ('use    default')? 
setcii«»iri     (  '.  d2/ tliesisl  .code ')  ? 
end? 
'4        '.     bedii  I 

setcvai     (  'last    i-a  raineters  '  )» 
rsetciiam    (  '  .d2/ tiiesiso.code  '  )  ? 
t?i  id  ? 
end?  -C  case  > 

«rid.  -C  INTROTHESIS  > 


R6 


FriOGRAM    aTnRTEnJ 

USES    ciiaii  I'j  Lu+'-f  f  tin^si-j.  cuf  f  » 

vnR 

■jiiii-irif  J.  ie »     -ji  lipuc*  i.<3     ^     file    o-f    shipJ 
airiiifiie?     jii-'Jcjb<d     J     file    of    dire  raft? 
k  A  nij  »  choice  J     'jLrinsiJ 

i»j  :   0..200; 

PruceiJuce    PdruLwof  foi-wcjnjf 

ri'uce'Jure    P  j  r- 1  Liu-ee  f  foi-ue»rdf 

Froca'Jure    f'^v  L-fuux'i  fo i-w«ird» 

PROCEDURE  DEFnULTFORCES;  < 


PART    ONE 


ijeiiifi 

■jCfi  ici  1 1  CO  V  cl  r  ) 
wri  Leli  1 7 
wi'i  Leli  I     V 
w  r  1  b  e  1 II » 
wri  Leli  I     < 
wri Leln     C ' 
w  I'i  belli     < 
wri  beln     <  ' 
wr 1 beln    (  ' 
wri  belfi     (  ' 
write in J 
w  r- 1  beln     < 
wri  beln    (  ' 
wri  belli     V  ' 
w  r  1  beln     (  ' 
wri beln     ( 
wri  belli  f 

ei  Kj  f 

PROCEDURE  PARTTUO; 


Ca 


^crricnt  ru<af  f  )  5  wnteln? 

FLEET    COMPOSITION 
'  >  ; 


)  5 


( 24  ai rcraf  t ) . 


fier  -  with  5 
2  suuiSdrons  of  mtercepto  ps 
6  piEU  di  rcraf  t.   ')? 

2  short  ransJe  missile  batteries  (40  missiles). 
Search  i-adar  and  airborne  intercept  receivers. 
SiiiP/ship  and  ship/air  communications.   ')? 


4  Cnjisens  (missile  picket  shiPs)  -  each  with?   ')i 

1  luna  raniie  missile  battery   (20  missiles). 

1  short  rande  missile  batters  (20  missiles). 

Search  radar  and  airborne  inbercept  receivers. 

Ship/ship  and  shiip/air  communications.   ')? 
p(3  r  t  bwo» 

■C  PART  ONE  > 


)  T 

) ; 


')  f 


ue::iiri 

w  f  i  be 1 n 
wri be In 
wri beln 
wri be in 
wri be in  i 

end  ? 


4  Desbroi^ers  -  each  witJi?   ')» 

1  ^^lo^b  ranae  missile  battery  (20  missiles).   ')i 
Search  i-adar  and  airborne  intercept  receivers.   ') 
Siiip/ship  and  siiip/air-  communications.   ')? 
continue?         partthreeT 

<.  PARTTUO  > 
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PROCEDURE    FViRTTHREE; 

PROCEDURE    MISSILEURITE; 


u  r  i  I,  e  i  n  ; 
wr-x  ttfii  i(  ' 
wi'i  ttelii  f 
wr i  Leii r ( 
wri telii(  ' 
wr i  telii\  ' 
wri  Ueiii  (  ' 
wi'x  Leli  I  f 
wri  Leli  I  < 
wri  Ltsfiri  ( 
wri  t,eln< 
wi-i  brflii(  ' 
wr  1  tell  I  i 
wr  i  Leli  I  <  ' 
wri  lull  If 
wr i  Leln ( 
wri  Ltriii < 
w  r>  i  t  u  1 1 1  r 
en 'J  i 

lillU  » 


T"  >  J  scrricntro<  of-P  )  J         writelnJ 

lie'"    do 

NOTE  ::   DISTi^NCES  -urs    medsureci  in-  NAUTICAL  MILES. 
w  r-i  Leln  i 

MISSILES  '); 


)  ; 


Siiurt    Rariila    surface-to-air  missiles 
Pcobdbi i i ty    of    kill 

Miiiiinuin    raiiae    of    firina  anvelope 

Hd;:iin>jin     rande    of    firiri:3  envelope 

Lund    Rande    su rf dce- to-3i r    missiles 
Probability    of    kill 
Minimum    rande    of    firing    envelops 
Ha;(imum    rande    of    finnd    envelope 
wri Leln » 

RADARS  '  ) f 

Siiip    search    radar    maximum    ranae 
Fire    control     raditr    maximum    ranae 
cariLinuef 

<    with    > 


SRSAM    ' ) ; 
'  f srmpk 151 2 ) f 
'  »  srmin  J  5) » 
'  r s  rmax  J  5 ) J 

LRSAM   '  ) ; 
' T 1 rmpk :5J2) » 
' T 1 pmin 15)5 
' f 1 rmax J  5) » 


' Fssrna 25) » 
' >f crna:5) i 


MISSILEURITE 


PROCEDURE  SHIPWRITE; 


ueuii  I 

with  -j»i)ii-'inf  1  ie^  do 
bedin 

writelnr        writeln* 

wr  1  tein  (  '  Siiip  number  'fit2t'     is  a  '^kind?' 
wri teln ; 

write   ('   A-Y  coordinate  position?   (x»y) 
wri  telnv  '  (  '  t  ;!Pus  J  All  t  '  r  '  f^pos  14',  lt')')i 
writeinC'   Direction  o'f    muvementf     PIM 
writelnv'   Speed  of  advance?  SQA 

end  7    -C   with   > 
tjnu  r  -C 


Lie-_Jin  -V. 

rese  t     (  shii-  i.\i-f  i  le  »  '  ABA  .  1  '.  shipinf  lie.  da  ta  '  )  » 

iiiiSiiiiewr  1  tcjj 

sc  rncn  t  CO  V  ci  !• )  J  scrncn  t  ro  (  of  f  )  J       writelri» 

writeln<'     NOTE     '.I       SPEEDS    -are    measured    in-    isNOTS.        ')? 

wri ttf in  i 

writeln('  SHIP  PARAMETERS  '>? 

i.    :^  o» 

Willie    NOT    eof     i,  sitip  inf  i  le  >     do 


'  )  ; 


'     '  f  p  1  in  J  3  )  ; 

:     '  »soa J3>  i 

SHIPWRITE 

> 

PAR. ,HREE 

> 

88 


i         '.  -       1       T       1   » 

With    shiPiri+"i  ie"    do 
cc»se    cid^s    of 


cv 

kind 

= 

'carrier' f 

ijt-^t. 

kin<J 

- 

'  des  L  ra::<e  r  ' 

r 

c  fs  r 

kllirj 

- 

'  c  rijiser  '  i 

eiiiJ » 

-C 

cjse         > 

1+'    >>     1    mod    2    -    1     )    diid    <     X    </•    1     ) 

ue^iri 

wriLelfiJ       writeln? 
cun  Linue  i 
3C  tTici  1 1  ru  (  u-f -f  )  5 
wci  telii(  ' 
end  f 
siti^'wr  1  Le? 
eiiu?  -C  with  }• 

iiei    ( lahiPiiif  i  le  )  f 
efid»  -C       wiiile       > 

close    ( -jiii^-inf  i  le»  lock)  f 
ur-iLeliir  uriLelrir  coiibinuer 


wri  LelnJ 

scrncritro(clr)  > 
wri belnJ 

SHIP  PARAMETERS 


cant . 


p-art-Poup ; 

PARTTHREE 


PROCEDURE  PhRTFOUR; 
PROCEDURE  nlRSETUP; 


ui  e  a  i  1 1 

31.-  rt  icn  i,  r 
w  ri  telfi  ( 
wr  X  tell  I  i 
wri  Leiri  V 
w  r i  Lei  1 1  i 
wr-i  Leln  ( 
wr-i.  Lelri< 
wr 1  be in 
wi-x  telii 
wr  1  belli 
w  r  1  bell  I 
wi-  i  bell  I 
w  r*i  bein 
wc  1  bell  I 
wr i  bein 
wr i  bein 
WI-  i  be  in 
wr X  belli 
wr  X  tell! 
wr X  bein 

ei  id  f 


o  <  c  1  r  )  ; 


scrncn  t  I'o  (  of  f  )  J       writelnf 
filRCRAFT 


)J 


'The    xriibxrfl    dame    ^ieb-UF"    for     the    dxrcraft    foilowsf')? 

'There    xs    one    CAP    <conibdb    dxr    t='atrol)     airborne    consist  ma ')  ? 
'of    2    f  xiJhber'/xntercept    axrcraft.       They    are    orbxbind    at')? 
'20f000    fL.»    aHi»ro;<x  mate  I'd    5    Hh    ahead    of    bhe    carrier     ')» 
'All     remaxnxnd    fighters    ai-e    onboard    bhe    carrier. ')» 

'Tliere    are    three    AEiJ     (axrborne    early    warnxnd)     aircraft')? 
'rjepioyed    at    13>000    fb.>     about    200    HM    ahead    of    bhe    task    force.')? 
'All    other    AEU    aircraft    are    onboard    bite    carrier.')? 

All    aircraft    of    the    ^aine    bjpe    will    carry    the    saine    ordnance')? 
load    and    will    have    the    .iaine    functional    parameters.        '  '■  ? 

'roliuwxna    is    a    sample    parameter    iisL    for    each    axrcraft     type.')? 

wrxteln?  continue? 
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PROCEDURE  nIRINFO 


besiili 

ui  Li  I 

bed 


ei  I'J  » 


a  J.  r  inf  1  le"    do 

HI 

I'i  leln  f 

I'lie   ('     X-Y  coordinate  position 

I'l  bell  I  ( ;<POS  I  At  1  t     r  '  r  ypos  I  4  : 1  »  '  )  '  )  » 

riLeiri<'  nlUiLude 

piLeinC'  Cuurse/iieadind 

i'iL*sli"i('  Qi'oui'id    'jjpeed 

<  Ull  til  > 


(  '  )  ; 

'  »  3  i  t  J  6  )  f 
'  >  <3.;iTithI6  )  T 
'  » velcta J6) ? 


AIRINFO 


PROCEDURE  nTTACKURITEJ 


ue^xi  I 

ui  til 
bed 


en 
i?l  lU  f 


s*i  cinf  t  le""    do 
111 

men  t  ru(  cl  r  )  > 
r  1  Lelri(  ' 
n  teln  f 
ri tein< 
ri teln  f 
I'i  tein  ( 
11  t(?lii< 
I'i  telnv 
ci  teln ( 
I'i  teln< 
Pi tein < 
1 1'in+'o  i 
I'i  teinf 
d; 


sci-ncnt  ro  (of  f  )  »       writelnf 
ENEMY    AIRCRAFT 


Att«ici<.    dire  raft    number 

Number    o-f    dii — to-surface    missiles    (ASM) 

ASM    probability    of    kill 

Firiiiii    anvelope    (decrees    about    nose) 

ASM    iTiaximuffl     rande 

Number  of  bombs 

Bomb  prubabilitij  of  kill 


wr  i  telri  > 
<      wi  til 


continue  5 
> 
■C 


'  )  f 
' » i :  2 )  f 

' >asm: 6 ) » 

' f asmpk I  6  J  2 ) i 

'  t  asmenv  X6'>  i 

'  >asmrna  J  6 ) f 

' r bomb : 6  )  ; 

' t bombpk  2  612) ? 


ATTACKURITE 


PROCEDURE  INTCPTURITE; 


oeMifi 
Wi  ti') 
bed 
•ic 
wr 
wr 
wr 
w  r 
u  r 
wr 
w  r 
w  r 
w  r 
ai 
wr 
ei  id 

'=;!  id  f 


ai  r  i 
in 

riicn  t 
1  tein 
i  teln 
i  teln 
1  tein 
1  teln 
i  tiffin 
1  tein 
i  tein 
1  tein 
I'inf  o 
i  teln 


nfile"  do 


( cl r ) f 


scrncnt ro( of f ) >   writein> 

FIGHTER/ INTERCEPTOR 


Aircraft  endurance   <.in  minutes) 
Intercept  radar  detection  envelope 

'Ifitei'cept  radar  ma;<imum  ranae 

'Numbei'  of  aii — to-air  missiies  (  AAM  ) 

'  AAM  probability  of  kill 

'AAM  firma  envelope  (dedrees  about  nose) 
AAM  maxiinum  rande 


wri  tein  i 
wi  til 


continue? 
> 
■C 


'  )  f 

'  r  intndp ; 6 ) » 
' f aienv  26 ) » 
'  »  ai  rnd  J  6 ) ? 
' »  aamJ  6 ) » 
' f aampk 16  J  2 ) 
'  »  aamenv  X6'i  i 
'  y aamrnd  2  6)? 


INTCPTURITE 
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PROCEDURE    riEUURITEJ 


AIRBORNE    EARLr    WARNING 


wiLi>    sixriii-rile"    do 
Lteiiiri 
■jc  II  icn  u  ro  V  cl  r  )  J 
wfi  Leii  i(  ' 
w  I'  1  Lelii  ? 

uiii  Lein  <  '  nx  rcraf  L    endurance       (in    minutes) 
wi'ileiiiC     nir     -.ietJ  I'ci'l     I'addc    ilics;; .;.  ;::i  .■:■•     r^iiiie 

J  2.   r  -It  IT  u  7 

w  I- 1.  i^u'ii  1 »  wriceiiif  cuntiiiueJ 

fi  id  ?  -C  wi  Li  1  J" 

l:?lld5  "C 

Li  <=;  ^  J.  1 1  "C 

iw'jfL     (jiiiiifiler  'nBA.lJaiPin-Pile  .d<3  td  '  )  » 
ji  i--je  Lu^' » 
J.      I  -     Oi 

wiiiitf    NOT    tfu+'     (dinnfile)     do 
Lieu  i.  1 1 

wiLii    ai  I'll  if  1  le''    do 
U'JVje     i+'f     o-f 

enemy       I     uedin 

1   :-  1  +  i; 

dt  tdckwn  Le» 
ertdf 
f-rend        '.     if    dlt    ^-    0 

Liien    xf    dcfrnd    =    aew 
bl)en    jewwnte 


'  )  J 
f aewndr ! 6  >  ? 


ATTACKURITE 
PARTFOUR 


tf  I  I  u  > 

lie  L     <  di  I'inf  1  ie  )  f 
ei  id  J  -C 

i-iu'je     (  cJi  rii  if  i  ief  luck  >  ? 
end  i 


else    intcf-twriteJ 
<  case    iff    /    with 

whiitf  > 


PARTFOUR 


PROCEDURE    GAHECH0I3ES» 


u  f  u  X 1 1 

jc  i'i  lui  I  L  ru  (  ci  !• )  »  'ic  tTict  it  ro  (  off  )  i 

wi-xLelii»  wrxoeinj  wr-iLelii»  wrxtelnJ 

How    do    -jou    wxsii     Lo    set    uf>    the    players?     '  )  5 
ui  I- 1  Lt'ln  F 

Use  the  def dui L  fleet/shxp  and  aircraft  data-base .') 5 


wcxLein     < 

wri  texn  f 

M r- X  Lex  11     i^ 

w  (-X  Lelii  r 

wrx  Lein     ( 

uirx  Leln  5 

wi-x  Lein     < 

wrx  Lein? 

wrxLein     ('        4     :        Buxld    \dour    own    fleet    and    axrcraft    data-base.')? 

wrxLexriJ       wrxLexii?  wribein?  wriLeiiiJ  writelnf 

wrxLe    (  '  T'lipe    j    numuer    f  I'um    1     tu    4    I  )  5 


use     Liie    defdulL    fleet    and    buxld    your    own    axrcraft    data.')? 
Use     tiie    def  aul  L    axrcraft    and    buxld    aour    awn    fleet.')? 


91 


M>c  iTici  1  L  CO  V  on  >  r 

while    iNOT    (-ielectiun    in    C'l'..'4'3)    do 

•3c  ri  ici  1 1  ro  (  Li©i  )  i 
wi'i  Leln  i 

wriLt;    (     Musi,    be    ^    number    froiii    1     to    4     M     —    Please    try    a^3in:        ')» 
i-eciu  < -jelectxufi ) 

«i  I'J » 
eii-J»  -C  GAMECHQICES  > 

PROCEDURE  3HIFTRANSFER* 

be-Jm 

reset  <  sii  aj- irif  i  le »  'ABA.lJshipinfile.'Jatd'  )  i 

rewrite     <  aJiipiJatd       »  '  ABA*  2  t  sJiiP'Ja  t«j .  da  ta  '  )  f 
renea  t 

-ji  lipda  ta"    I-    siiAPirif  ile"  J 
I'ut     (shxi»<JaLd)  5 
■Jet    ( -jhiPAfif  i  le)  J 
until    eu+"     (  siiipii  if  i  le  >  » 
close     (  silij^iiifi  le  >  lock  )  5 
close    (siiipdata       »iock)f 
ei  iiJ  i 

PROCEDURE  nIRTRANSFERJ 

ue^ii  I 

reset  (airin-file     »' ABA  ♦  1  Jai  ritifi  le  ♦  data ')  f 

rewrite    (aii'dcjta  »  '  ABA.  2  Jai  rda  ta.  da  ta  '  )  » 

i-epea  t 

jirdata'       I-       Ji  ni  if  i  le""  ; 

cut     \     ji  rdata ) f 

ijet     (     airiiifile)? 
until    eof     <     airinfile)5 
close     <airinf  lie     »loc;k>» 
close    (ail-data  flock)  > 

end  f 

PROCEDURE    PREPACK? 

beiiii  I 

.ic  ri  icn  t  ro  <  cl  r  )  i  sciTicn  t  ro  (  of  f  )  f 

write  in »      wr-itelii?     WPiieln? 

writeiii  ('Since  you  have  decided  to  use  the  default,  fleet  and  attack>')» 
writein  (you  t»tf^    wish  to  repeat  the  default  database  review.  ')? 
writelii?      wr-itelnf     yesnoselJ 
case  selection  of 
'  V  '  f  y  '  '.     uesiin 

writelfif     writeln?     wntelnJ 
continuef  Jef aul tf orcesJ 

end  ? 
■ N ' >  '  1 1 '  I  bed in 

writelnf     writelnJ     writelnJ 
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ei  lu  r 


end? 

■C 


ueijiii  -C  STARTEM  > 

■je  Lt-hcJiii    i  '  .^2/ Oiiet»iij2  .  CQfJtf '  )  i 
ir    wfiuactj    -     'cuiiij-lete    pfosii-din ' 

Uiiiiii       beaxn  ue+'dui  (.forces  J  damechoices  f  end 

ei^e       if    choice    -     'diluw    chaniie' 

Liieii       ueiiiii      choice    t=     'no    review'?       iJainechoices  r       end 
ei'4e       if    choice    =     '  ui>e    default' 

Lhef)         beslin    choice    t=     'no    review'?    selection 
else       selection    t-     'O'J 
Ctise    selection    of 
'  1  '        :    ije^in 

if    cliuice     O     'no     review'  then  prepack) 

setcval     ('default'); 
■3i\x>'  t  rarisf  er  f 
dirt  ransf er  i 
end  » 
'  2  '        i     beam 

setcval     ('boiid    air')? 
shiK  t  rai  isf  er  i 
end  T 
'  3  '        J     beiiin 

setcval     ('build    fleet')? 
ai  r  t  rai  isf  e  r  ? 
end  f 

setcval     ('build    all')? 
■C       case       > 


=     '  1  '  ?    end 


'4' 
end 
«rid . 


STARTEM 


'ROGnrti'-i    CHANGEM? 
USES       cita  ins  tuff  »  the^istuff  ? 


vnri 

siiiHinf  1  le »    siiifdata    I    file    of    sliif*? 
airiiifile?     dirdata  J     file    of    aii'craft? 

alj'COlliH         i      cfircraft? 


S(li>-'COinH       .       -: 

c  h  u  i  c  e  »  k  i  1 1  d 

i  p  .J 

111!  53-jCill  lii 

leiia  ti) 


IIP  » 

s  t  r  it  id  ? 
0. .200? 
boolean  ? 
0 . . 10  ? 
in  teaer  ? 


rrucedure    Redosiii>';  Toru<icrif 

r'ructfdure    Redoini  js  i  les  ?     -rorwarof 
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r  ructfuu  rte  ReiJuT  r  x  el  uJ  f  forward  J 

P  roceiJij  r-e  Redoeneiny  f  foPw<irrj» 

r  roceuu  re  Ciii  laii  i  tcp  c,  r  forudfdr 

i-fuceduce  CIiriii«iewJ  forwdnd? 

Pr-ocedure  Courdii  ic*  Les  »  foru^rdJ 

Procedute  nl  L-A^iiitii »  TorwdrdJ 

Pruceduie  Ueiuci.  t  le'b  f  fQrwc*rd» 

PROCEDURE    CHECK  VALUE     v     iof     In        :     in  besJei- >  » 

Lamp     I—     r-fc-sjdAriL     (  lena  tl"i )  f 

wiij.itf     V  (  LeinH    •:     lu>  or  (temp    >    iii))     do 

Utiiixn 

sen  icri  t  ro  (  L>ei  )  »  writelnf 

wriUe       ('       Please    etitet-    a    value    between     '>loJ2f'     and     '>hi;3f'     I     ')5 
Leiir>-;-     r-eadiii  t  (  lend  th  J  » 
tjiidf  -C  wiiile         > 

li  1 1  d  f 

PROCEDURE    iNEWSCREENf 

Lieiii.!  I 

•jC  ri  ici  1 1  ru  <  ci  r  >  5  'juTncrit  ro  (  off  )  r 

uiiLelnf  wrileinf  wriLelnr 

et  id  i 

-Cixriclude    .  do/ ti  lesi '^20 .  Le:<  L>  -C         A    coiiif='Xlep    instrijction    to.  include    this         > 

<         text    file    when    compilina    the    codefile.         > 
-C  SeiJinriiiiii     text    file    Thesis2b.  > 

PROCEDURE    CuORDIiWATES; 

ue^iii  witli       dirddta^    do  be^in 

I  lew^c  reen  5 

wri  tell  I  (  '  T!ie    di  i-c raf  t '  ' -3    X-cuordin<3  te    position  J     '  f  ;<posI  4  J 1  >  ? 

if    ciidi  laei  t 
tiieri    beam 

leii^ti'i     l~    4  5 

;;f'us     ;-    redd  real  ( lend  t^l )  J 
wri telni 
end  i 
•aci'iicrit  CO  (of  f  )  ;  wi-itein»  writelnf  wnteinf 

wri  teln  (  '  Tiie    <3i  re  rdf  t  '  '  s    Y-coordinate    .-osition  I     'fyposJ431)> 

if    ciiai  i:^ei  t 
tiieii    beyiii 

leriiith     :-    4? 

apos     J-     readredi ( length ) ; 
wr  J.  tell  1  i 
end  5 
end?  <  wi th  > 

write  In  J  writeinJ  coriCmueJ 

end  > 
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PROCEDUnE    r^LT_AZi-iTHf 

beiliii         Willi       c»x  c'iiita''    iJo  uedin 

t  iewj>c  reen  i 

wi'i  tell  I  <  '  Tiie    aircr3fL''s    currant    altitude  I     'raltJS)? 

if    ciic«n:^ext 
tiieri    bysiiin 

lei  ii<  til     «  -    Zi 
ciitfukvdlue    (0r30G00>f 
cil  t     I  -     teiiif*  f 
eriij  f 
•ac  n  icn  t  i"o<  o+'f  )  >  write  In?  write  In?  writeinJ  ' 

wri  telii  (  '  The    di  re  raf  t '  '  s    curi-ent    cuu  rse/headinsl  J     '  »  azmth  J  3  )  f 

if    ciiari!3eit 
tiieii    beviin 

lei  i:d  tl  I     i  —    3r 
uiieck  value    (0»3G9); 
<j^intii    I-    tenii='» 
enu  f 
wl  iij  r  -C  wi  to  > 

w(-iteii"i»  writelnJ  cuiitinue> 

enu » 

PRPCEDURE    ■-'ElppCITIES; 

ueum         wion      airdtjta      do  be^in 

I  iew<3C  reel  I  f 

wrj.  teln  (  '  Tiie  airci'aft''s  current  around  speed  (velocita)  J  '»velcty;4)> 

if    ciidii^iei  t 

Llien    be^iii 

leirJtii     J-    4  J 

wheckvalue  (0»2000)» 

velcta     t-     teinpf 

ei  id ; 

(^1  id  J  A.  wi  ti'l       > 

end  f 

FROCEDURE  REDOFRIENDf 

beiJxn 

re'jet  (ciirinfiie     »' i^BA  .  1  J  ai  rinf  i  le  .  data ')  f 

rewrite     <<:<irdata  >  '  f^Brt  .  2  I  ai  rda  ta  .  da  ta  '  )  » 

repea  t 

airdata"       1=       airirifile"? 
(-•d'De    =»i  rdd  ta"  .  if  f    of 

enem^     I     put     <airdata>r 

Trend     •     ca^e    ai rdata" . acf rnd    of 

iiitcpt     :       bedin  1     :-    1    +    i;  chndintcpt;  end? 

jew  :       beam  ^     :=    j    t    If  chnaaew  f  endf 

end;  -C         ca'ae         > 

ei  id  ?  -C  case  > 

■Jet     (     air  II  IT  lie); 


95 


until  eof     (    di  i-iiifi  le)  ; 

clu'i.e  v.ji  I- Ill-file     »iock>» 

clo'je  (  cJi  i-iJ<d  Ld  jlock  >; 

tfii'j  f 


REDOFRIEND   > 


PROCEDURE  CHNGINTCPT? 


Pi'uceuure    PijrtLwoJ 
P  loceuij  re    P<jr  L  til  ree  J 
P  i-uceiju  rt;    PurCruurf 


PRGCEDURE    INTCPTPriRA} 


INTCPTPARA 


p-artone 


ue:^i 
if 


II       wiLri       jiriJdta"    'Jo  be<3iri 

rTicii  t  ro<  of  f  )  5  writelnf  wntelnr 

1  telri(  'Eiidui-drice    of    <3iPcr<ifb    <iii    iniriutes) 

ci  ic)riiiei  t 
Li  let  1    ueiiiri 

i  tfi  lU  Li  1     t  =    3» 
ciiecl<.vc»lue    (0»2S5)f 
intritJi-    i-    Leinp; 
emj  J 

-C  witii  > 


wn  telnf 


i>j; 


wriLeiiiJ  wriLelni  contimje? 

tfl  iij  r 


t^arttwof 


firitndrt3)     » 


PROCEDURE  PARTTUO; 


uedxn 


INTCPTPARA 


parttwo 


beiiiii  witil        cJirdatc*''    do 

I  lew^c  r-eeri  i 

wri  Lain  <  '  Tiie    number    of    air-to-air    missiles 
if    ciiaii:jeiL 
Liieri    ueiiiii 

iensj til    '.  ~    2f 
ciieckvaiue     (0»31)f 
a«*in     i  -     temp  r 
end  r 
scfrii.-n  t  ro<of  f  )  ;  wr-itelnf  writelnf 

wri  teliiC  '  AnM    nrobability    of    kill 
if    ciioriidei  t 
tiien    bedin 

leniitii     I-    4f 

aaiiiKk        t-     reau  real  <  lend  th  >  ? 
wri Leln  i 
end  f 
end  F  -C  uii  Li  1  3- 

writelnJ  wr-ileinf  contmuef  partthreef 

end  7 


(AAM) 


uin  teln  f 


'  r  aani<  2)  i 


r aampk ! 4 ! 2 ) v 
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FROCEDURE    PnRTTHREEJ  -C  INTCFTPARA  P3rtihree  > 

ue^^iii  with       dxi'iJdbd'^    >Jo         besiin 

I  lewsc  rsi^t  I  i 

wri  Lelii<  '  Rdddr    detectioii    envelope    (deslrees    about    nose)        J     '»aienvJ3)f 
if    cii<si laei  L 
Liieii    beit^n 

leriiitii    J=    3  J 
c!  leckvdiue     (OroS?)? 
dieiiv     :  =     ueitii* » 
ei  lu » 
^c  piicn  L  CO  <  uf  f  >  J  writeliif  writeini  wrxtelnf 

wi'i  Leln  (  '  IiilecL-ept    r-<adc*p    in  ctxi.  mum    cdriiie  i     '»3irn«3J3)J 

if    clidi  lidlei  L 
(.iien    beaii'i 

leiiiltii    I-    3f 
cfieckvdlue    (0»255)> 
di  cti-J    I  -     beiiiP  » 
eiidf 
tfi  id  i  -C  wi  ti  I  Jr 

wr"ii,t!lii»  wi-iLeiiiT  U--  !  •  i,  Liii.'w  f  part,four» 

-C  INTCPTPARA  t^art  three  > 

rnOCEIilJnE    rnRTpQURJ  -C  INTCPTPARA  Pdrtfour  > 

utjiiAii         wxtli       dirddLd^    du         beam 
I  lewvjC  i-eeri  i 

wci  Luln  (  '  AAM    finnsi    envelope    (decrees    about    nose)  :     '  r  aamenv  :  3)  > 

if    c;  icoi^ei  L 
Liien    beairi 

lei  id  til    I-    3f 
uiieck.  value    t0>3u9); 
aiei  IV     ;  -     temp  » 
end  f 
■jt."  1'iicn  t  ro(  of  f  >  ;  write  111?  write  In?  wntelnf 

wri  telii(  '  AAM    ina;:iiiium    raniite  J     '  > aamrna  J  3 )  » 

if    i.h«jiiiiei  t 
tileri    beidiii 

leiidth    ;=    3» 
ciieckvalue    <0»255)? 
aatnriiii     J-     temp; 
end; 
end;  -C  with  > 

writeln;  writeinf  continue* 

•cfiid;  -C  INTCPTPARA  partfour  > 

beam  <  CHN6INTCPT  > 

I  iewt>c  I'eeii » 

writelnC'  Do    you    wish    to    c^lanae    ana    of    f liJhter/interceptor     '); 

writeinC'  aircraft    iiuiiiber     '»i:2»'''s    parameters?'); 

writeln?  -ije'iinoijei  ;  writelnJ 

cj^e     jeiectiun    of 

'  'l'  '  t       J  '       't      'OtgiiA.ll 

coordinates;      al  t-.a::nith;     velocities; 
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111  Lcp  LpcJ  I'd  r 

ei  nJ  ; 

'N' 

>  '  1 

1  '      '. 

put    (c*i  rddta)  > 

«l  I'J  i 

< 

Cdse       > 

«I1<J  J 

■C 

i^«jt    ( <ai  I'lJatd  ) 


CHNGINTCPT  > 

PROCEDURE    CHNGnEW; 
FRQCEDURE    nEUPARAf 

i>c  fiici  I  L  lo  <  o-f  f  )  ?  writeinJ  wnteinJ  wriLelnf 

wri  Leiii  <  '  El  iiJij  fdiice    of    aircraft    (in    iiiirujtes)  I     '  ^  aewndr  J  3)  f 

if    chariiim  t 
uiien    Liwijin 

leiisitii     ;-    3t 
ciieckvalue    <0?253)$ 
aewiidr    I-    temfJ 
end  f 
wiiltfltiJ  wpitelriF  contiinjer 

I  ifcfwscreeri  J 

wri  telii  (  '  Ai  r-borne    •search    rctuttr    inaximuin    ransie  I     '  »aewrridJ  3)  J 

if    chansleit 
Liieti    ue^in 

lei  id  til     t-    3  5 
uiieckvaiue    (0»253)J 
aewrii:d     J-     temp » 
ei  id » 
end  f  -C  141  til  > 

wfiLeiiiJ  uciLeinJ  contiriueJ 

eiidf  <  i^EUPARA  > 

i-ieiixi  I 

1  muse  reeri  i 

writeiiiv'  Du    'jou    wi^ii    tu    chtanae    ariy    of    early    warning     ')? 

wi'iteiii('  aircraft    number     'fal2t'''s    parameters?')? 

writelnf      'j^esnuselr      wi'it,eln» 

c^se  -jeitfction  of 

'Y'f-y'  :  ueaiii         -C      CHNGAEU  > 

cuurdinatesJ      aib_azmth»     veiocitiesf 
aewfaraf        Put  (airdata)? 
end  f 
N'f'ii'  i     Put  <diruata)5 
end?      -C   case   > 
endf  -C      CHNGAEU  > 
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PROCEDURE  MOREnlRINFQf 

ueam 

wiLii    diP'JtjLd"    do 
bediii 

iiewsci-eenJ  'jcrncntro    <  on  >  ? 

len^Li)    J-    4? 

wfite   ('    EnLei-  Lhe  X  coordmata  POSITION         :  ')? 

j-spys     i-     reddredl  (  Itti'isitiT  )  ; 

writtflnf  writelriJ  writelnf 

write       ('  Enter    tlie    Y    coordinate    POSITION  :     ')? 

•jir'ij^     J-    i-eadi-eai  ( lensJthi)  » 

wriLelnJ  writelnJ  wi'itelnf 

lenij Lii    «  -    5  J 

write       ('  Enter    the    ALTITUDE  :     ')p 

chetkvalue    (0r30000)» 

<3it    I-    teiiif* » 

write  li'if  writelnJ  writelni 

leriiitit    J-    3i 

write       ('  Entei-    the    HEADING/COURSE  ;     ')? 

ciieckvdlue    (0»359); 

d^inth     I-    tem>»» 

writelnf  writelnr  writelrir 

lena  th    J  -    4 » 

write   ('    Enter  the  VELOCITY  :  ')? 

clieckvalue     (0»2000); 

velcta     J-    teinpJ 

wi'itelnf  continue? 

end  f 
ei  id  J 

PROCEDURE    MAonTTACK? 

With    cjirddtd"    du 
utfilin 

new<»creen$  sci-ncntro    (  un  )  ? 

leiiiitii     :-    2  J 

write       (  '  Entei-     the    number    of    ASH'  's  J     '  )  J 

ciieckvalue    C0»31)J 
asm    I-    temp? 

writelnf  wntelnJ  writelnf 

write       <  '  Enter     tiie    number    of    bombs  '.     '  )  » 

checkvalue     (0»31/» 
bomb     I -     temn  i 

writelnf  writelnf  writelnf  continue f 

endf  -C  wi  th         > 

>=.Tldf 
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PROCEDURE    iMOREnTTnCK; 

diiinenv    J-    3X  rcomH.  asinenvf 
dsinriia     J-    ai  rcomn  .  asmrnaf 

buHiuKk     ;-    ji  rcomH  ♦  bombpk    r 
iiiu  ft't<i  !•  iri+"o  5  itidi>d  t  L<i»ck  f 

ei  i>J  >  -C  wi  til  > 

ei  MJ  J 

PRCCEDURE    REDGENEilV; 


P  coce'Ju  ra    PdctLwoJ 
PraceiJure    Pc;r  t  tiii-eef 


f  o  rwcjrd  5 
fu  r'Weird  J 


PROCEDURE    ENEHYPARri? 


ENEMYPARA    partone 


beiiiii         With    ciirMJatd^    do  beam 

I  lew^c  t-een  f 

wii  lein  V  '  Nijiiiber    of    <iir — to-sur-face    iiiiiiiiies  (ASM) 

if    ciidri:dei  L 
Lheri    bed  am 

lermLii     J=    2  5 
ciieckv^lue    (0»31>J 
jSBi    t-    UenipJ 
end ; 
•jcriiwiiLio  (of  f  >  »  writeliif  writelnf  writelnJ 

wr-i  Lelri  (  '  Tile    nSM    p  i-obdbi  i  i  ta    of    kill 
if    ciidi  luy  1  L 
Llieii    bt^diii 


;     '  f  asinI2)  i 


^   4; 

=     r-edd real  (  lend  L(i>  f 


1  t^i  idbii 
<*^mpk 
wi-i  Leii  1  f 
ei  id » 
ei  id  r  -C  wi  til  > 

wi-iteln;  wi-iLelnf  cantinuef 

end?  -C 


PROCEDURE  PARTTUOf 


■C 
bed  in 


parttwo J 
ENEMYPARA 

ENEiMYPARA 


partone 

part  two 


uediii         with    dii'data"    do 
I  itJW'jc  reel  I  i 

w  1-1  lein  (  '  ASM    firma    envelope     (dearees    abo'jt    nose) 
if    ci  idiiaei  t 
then    bed in 

1 end  th     I ~    3t 
u'neckvaiue    <0»339)» 
dsinenv     I-    teinpr 
end  r 
^ac  i-ncn  t  ro  (  of  f  )  ;  wr'iteinJ  write  iri>  write  In  5 

w  Ci  leln  (  '  ASM    mci;<imunn     rande 


:    '  r  asiTiPk :  4 ;  2 )  f 


t     ' r asmenv :3) i 


f asmrnd  J  3 ) » 
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if    ciianiieit 
Liieii    Lies! ill 

leii::ltii     5-    2» 
L:iieckv<3lue    (0»25u)? 
d-amrria     '^  =     teinp» 
endf 

■^'"m     1,'  uriLein'j'         contxnue?  PartthreeJ 


lifliuf 

PROCEDURE  PnRTTHREEJ 


-C     EHEMYPftRA    part  two 

-C     ENEMYPARA    Part  three   > 


be^in         -xtl.       axr.Jc»b<."    do  be^ir. 

nauicretfnJ  ',     '»boinbl2>J 

wriLelriv'The    number    of    bombs 
if    ciiejnaeiL 
then    besiin 

lendth     *.-    2J 
checkvalue    <0»31)» 
bomb     J-     t-einpT 

if    chcjn^eit 
then    beslin 

lendLh     :=    4f 

boii.b»-k    :-    readreal<leni3tn)f 

wr 1 UelnJ 
enu  f 
end;  -C  With  > 

11-  ui-iLt»lnf  continue? 

•ileln,  wiLeln.     ^  £hEMYPARA         Partthree       > 


enu  f 
Lisilin 


<  REDOENEMY  ^ 

"^i'^eL  vaiPinfile    ,-^BA.i:airinfile.data;)f 

;.::T.ite     (ax.d.ta  ,-nBA.2:airdata.data     .. 

X    :-  o; 

iiewacreenf  ^rransSed    in    si;:    formations    of')' 

„,.i.eln<'  rne    -^'^-'<-    -/^'^''t'ou    :!u    beJ-sented    uith    each     ')* 

upiLeliiv'  three    jircra+t.        i  ou    wiix    "« 

:nibrin<'  ...-.•'•aft    in    each    formation.  >' 

writeinf  wriLelnJ  wnteln, 

repeat 

jii-uata'  :-       airinfile     f 

c^s^    aii-data'.iff    uf 

fi-eiiu    :  cut    <airdata>» 

efieina     :  beain  i     :-     i     +    1' 

if  i  =  i 

then    jipcunip  i-  aifdata 

else    newscreen*  , 

„,,l,e   <'    Do  -.ou  -i.h  to  delete  attack  >r 
writeln(  aircraft  number   »i:2»  "^  ^' 
writelnf      •^esnoseU      wrxteln, 
case  seiection  of 
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'  N'  r  '  n       .    Qeiiiiri 

sci'ticn  t  i-o(  o-f  f  )  ?       writelnJ       writelnf       uritelrif 
write       ('  Do    aou    wish    La    chanae    ana    of     ')» 

wri  Leln  <  '  it'  '  s    t^-a  raine te rs ?  '  )  i 
writelii}  aesnoself  writelnJ 

case    selection    of 
'  Y'  f  'y '     J    besiin 

eneinapara » 

coordinates*  alt-azmthf 

veioci  tiesj 

wntelnf  wntelnf 

contmuef  pijt    (airdata); 

endf 
'N' » 'n '     :    bedin 

writelnJ  wntelnf 

continijeJ  ptjt    (airdata)? 

end  f 
end J  <      case      > 

end  J 
eridJ  <       case       > 

end  J 
fiiuJ  -C  case  > 

aet     <     di.  rmf  1  le  )  ; 
until     euf     (     aiPinfile)» 
repe<s  t 

I  lewsc  reen  J 

wriLeiii<'    Do  aou  wii>ri  to  add  more  attack  aircraft  to  the  database"?"  )  J 
writelnJ     ^esnoselJ     writelnJ 

if  selection  in  C'Y'*  y'3   theri   bedin   mo reattack J  put  (airdata)?   end  J 
until  selection  m  C'N'»'n']J 
close  (airinfile  »lock)J 
close  (airdatd    flock) J 
v.-nuJ  <     REDOENEMY    > 

End  uf  te;;t  file  Tnesis2b.  > 

FRGCEDURE  FLEET3UILDJ 

ue::Jii  I 

fese  t  (  siiiPinf  1  le »  '  i'lBA  .  1 1  s^llplnf  i  le  « da  ta  '  )  J 

t-ewi-ite    (sidpdata       »  '  r^BA .  2  J  shipdata .  da  ta  '  )  J 

iiewsc  reen  J 

wi-iteln     <  '        Do    -jou    wls^l     to    add    or    delete    ships    or     ')» 

writeln    ('       chanae    ana    of    the    ships''    parameters?'); 

wnttfinJ  wr'itelnJ  yesnoselJ 

c<ise     je lection    of 

Y  '  »  'j       '.     i-adosiiip    f 
'  N  ■  >     1 1  '     '.     repec*  L 

•iihipdata"    I-    shipinfile^J 
Put    <shipdata)J 
aet    ( shipinf ile ) » 
until    eof     <.  ship  inf  1  le  >  r 
arid  J  -C  case  2- 

close     C  siiip  Liif  1  le  »  lock  ;  J 
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PROCEDURE  nIRCRFTBUILD? 

ueaxn 

1  lewsc  r-tjeri  i 

wi-ii.elii    ('  Du    -dou    uisli    to    chanae/di  tsT"    J')? 

w  fi  tiifln  f 

writ,fcfiii<'  1     I       FrxeriiJla    <3i  fc  r-af  t    Pd  r<sme  ters?       ')> 

wPi  Lelnf 

uriUeiii('  2    1       Enemy    jircra+'L    j-'.a  rdme  t-ei's"^  '  ;  - 

'J  r  J.  Le  ii  1  f 

wi  Lt,.  o    i       Butii    eiiem*:<    diiU    friendly    dircra+'t    PSPdiiieters?       ')J 

w  r  JL  It;  .li  I  »  wcioeilif 

wriLe       (  '        Tyf-e    3    number    from    lLo3J')»  ' 

fed<J    (  yei  tfC  Lion  ;  f 

^ac  r'l  ii-i  I  0  10  V  un  )  f 

wiiile    NOT    (i>  elect  ion    in    C'l'>'2'»'3'])    do 

UttHXIl 

■ici-ncnt  fo  (  be!  >  J 
ui'i  Leln  i 

wi-ibeln    <  '  Muyt    be    a    number    from    1     Lo    3     !  '  )  » 

write  ('  —    Please    try    ai^^ain    —  i  ')i 

read    (selection) f 
end?  <  while  > 

CdSe    i.eiectioii    of 
'  1  '     i     I'edof  r  lefidf 
'  2  '     J     r-eduenemy  i 

'3'     ;    beslm  redofriend?  redoenemyJ  endf 

end?  -C  case         > 

end  i 

PROCEDURE    MOREINFO; 

ue:::iin 

with    shipdata'*    do 

uewscreenf  scrncntro    ( on ) » 

leniith    :-    4» 

write   <  '    Entei-  the  X  coordinate  Position  ;  '>f 

;i>^us  I-  readreal  ( lena  th  )  ; 

wr-itelnf     writelnf      writelnf 

write   ('    Enter  the  Y  coordinate  position  J  ' ) i 

ypoy     :-    read  real  (  lensiti) )  > 

writeln?  writelnJ  writelnf 

lenyth     I-    3» 

write   ('    Enter  the  PIM  :  ')» 

checi'-.value  (0f359)j 

p im  ; -  temp  ? 

writeinJ      writelnf      writelnJ 

leriiitii    :-    2? 

wi'ite        ('  Enter     the    30A  :     ')» 

checkvalue  vO»GO)5 
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ioa    J-    teme-i 

wrxLeln;  wfiLt?lii>  wriLelrir  conbinuer 

riew^bcreeiiT  icrncntro     '.  ori>? 

ienaLii     J-    3  5 

wriLtf       <  ■  Entei-     trie    viur-face    ^e^rch     radar     ransie 

checkvalue  c0»25o)» 

sariiii    J-     LemHf 

wriLelnJ  wnteiiiJ  writelnf 

wriL«       ('  Entei-     Liie    fii-e    control     r-adar     raride 

clieckvaiue    (0»25G)> 

ft:  nisi     '.  -    teraKf 

uritelni  wr-itelnJ  uifibelnJ 

wi'iLe       ('  Enter    the    number    of    Lond    RaiiiSe    SAM 

chet-kvalue     <0»2GG)5 

i  rsaiR    J  -     teiriK  ? 

wi'iteln?      Mriteln!      wr'itelnJ 

write   ('    Entei-  the  number  of  Short  Ranae  SAM 

checkvaiue  (0»23j)» 


si'isam    J-    teififf 
wi'itelnf  ui  rite  1(1  J 

eiiiJf  <  with  > 


nd; 


PROCEDURE  MORESHIPS; 


wr i  teln  i 


con  tmuef 


)  ; 


ue<iiin 

with    ii)iii='«Ja  ta"^    do 
beijiri 
1  riBpk 
■b  ririHk 
1  rmii  I 
1  rmax 
s  rinii  I 
•i  i'ina;i 
Kii  II  t^ 
L>i  II  L-j 
I  lewic  reei  i  i 
wri tein( ' 
wri teln  r 
wr i  teln( ' 
w  I' J.  tell  I  i 
w  ri teln ( 
wr  i  tell  1  J 
wr i  te        <  ' 


-  >3hiPconif»  .  1  rinpk 

-  iihipcomp.  iriTipk 

-  shxpcomp  .  1  rtnin 

-  shipcomj*.  1  ritia;< 

-  ^ii  Apcomp .  srinin 

-  lihipcomp  .  s  rma;< 

-  05 


Please  choose  a  ahip  tape  J  ' >  5 


1  J   Destroyer 

2  ;   Cruiser 


'  )  5 

'  )  i 


w  r 1 teln  F 

Tape  a  number;   1  or  2  '.     '  )  5 
read  (selection); 
scriicn  t  ru(  an  )  ; 

witile  not  i  selection  in  C'l'f'2'3>  do 
uesiin 

■jcrncn  tro  V  bel  )  ;     writelnr 

write   ('     Must  be  an  available  choice?   1  or 
read  (selection); 
arid;        -C      while    > 
castf  selection  uf 

'1'  I    class  I-  dest; 


:  ' ) ; 
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'2'     :    class    '.-    crsri 
efiiJJ  -C  cjse  > 

mo  rtfiiif  o  i 
niMJi  -C  with         > 

tfnd  i 

PROCEDURE  REDOSHIP; 

Procedure    P<sPtiwo?  forward? 

Procedure    Pd  r  t  LI  i  i-ew  >  t'oi-wardf 

Procedure    PdrtfourJ  forwdrdf 

PROCEDURE  SHIFFARa;  <  SHIFPARA    partone     > 

ueiiifi  wxLh    jiixt-datd"    do  beijin 

1  lewscreen  J 

wri  i.eln  (  '  Tfie    sriii='''s    X-coordinate    position  J     '  fkpos  J  4  J 1 )  5 

if    ciianaeit 
Liieii    bedxn 

leriii  tl  I    J  =    4  J 

xpos    J=    readreal  ( lenslth  )  f 
wri  Leln » 
ei  id } 
sciM  icn  t  ro  (  of  f  )  ;  writeln?  writelnf  writelnf 

wri  Lelri(  '  The    i3hip''s    'f-coordinate    position  :     '»aPOst4:i)» 

if    ci  lani^ei  t 
Lheii    be^in 

lensitii    J-    4» 

apos     J-     readreal  <  leniJth  )  J 
wi'i  Lelnj 
end  f 
ei  id  f  -C  wi  th  > 

wriLeln;  wriLelii»  continuef  par'ttwof 

«iid>  -C  3HIPPARA  par-tone  > 

PROCEDURE    PARTTUOf  <  3HIPPARA  parttwo  > 

ueiliii  witli    siiipdata"    do  besiin 

I  lewiic  r'een  f 

wr  i  Leiii(  '  Trie    'ihip''^    PIM    (position    of    intended    inoveinenb )       t     '»pimJ3)? 
1  f    Cfianaei  t. 
uiien    beam 

ieriiltii     ' '-    3f 
checkvaiue     (0»359)f 
p  1  III     :  -     temp  i 
end  f 
'jC  n  icn  0  ro  <  of  f  )  »  wriLeinf  write  In  J  writeln> 

writeinv'The    i>iiip''s    actual    SOA    (speed    of    advance)  I        »soa;2)r 

if    chari:dei  t 
then    ueiJin 

ieiiil  th     I  -    2f 
checkvaiue    (0»50)» 
iua     '.  -     tenip; 
ei  id  f 
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ei  iiJ  J  -C         wi  ti  I  > 

wfj-Leln;  wr'iLeln?  continued  pdi'tthreeJ 

eriuJ  -C  3HIPPARA  r-arttuo  > 

PROCEDURE  PnRTTKREEf       -C      3HIPPARA    partthrae   > 

Lieiiin         uiitii    siiiHuaL**"    do  besJin 

I'lewsc  reeri » 

wri  Leiii  <' Surf  ace    ieaccit     rauar    iiiaximum    ran^e  :     '  »  ss  rri:^  J  3  )  5 

Lr     cr  lai  laei  L 
ti  It'll    beiJin 

leiiacii    J-    3f 
criieckvaiue    (0t25G)» 
Si»rrisi    J-    teiiipJ 

tftHJ  f 

laccricnc  i-o(  of  f )  »  writeln?  writelnf  writelnj 

wrx  telri(  '  r  i  re    contr-ol     radctr    maximum    rande  I     '  ffcrn^iZ)  i 

if    ciianaei  t 
Lheti    be:jxfi 

lendth     1-3; 
checkvalue    (0»25Ij)5 
fcrrisj    1=    Leitipf 
ei  iij  ? 
eriuJ  <  witii  > 

wriLelnJ  writeirif  continued  partfoupf 

>-i..j;  -C  SHIPPARA         partthree       > 

PROCEDURE    PARTFOUR    i  <  SHIPPARA         partfour         > 

beiSin  With    shipdata""    do  bedin 

I  ifcfwsc  feen » 

ui'i  i-eirn.  '  Number    a-f    lonsi    ran^e    surface-to-air    inissiles  I     '>lrsam;3)» 

if    ciiai  laei  t 
uiiei)    Lie:eiin 

Ib-ll^bll     I-     3? 

ciieckvalue    (0t2ZZ)i 
1 rsam    1=    tempJ 
end  ; 
■jc  ri  icri  L  ro<  of  f  )  5  writein»  wntelnJ  writelnf 

wr  1  Lelri<  '  NumLie  I-    of    st^iort    rande    surface-to-air    missiles  ',     '»srsamJ3)> 

if    chanaei t 
Liien    Lieiiin 

leiiiith     '.  -    Zf 
ciieckvalue     (0»255)f 
■j  rsaiM     I  -     lem»-  5 
,  end  f 

end;  <         wi  til         > 

wrileinf  wrileinj  can t inue f 

ijnd?  -C  SHIFPARA  partfour  > 

l.>eiiiii  <  REDOSHIP  > 

i    -.^   o; 

1        I  -       J.       T       i  ) 
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sliii-cuini-     '.  ~    ■iiiiPinf  J.  le"  5 

if    i     -    1        LJien  reijoim&siles ; 

if    iiix-iscluisl 

Liien       witii    siiip'dc<t«» 
besjii  I 

1  i-inpk 

s  I'lnpk 

1  i-min 

1  rtncf;-; 

s  nniii 

S  I'llldX 

end  f 

cd^e    aliipiJaLa 
cv  :     k  iinj 

iJesL     ;     kind 


do 

-  shipcomp  .  1  rnipk 
=  3i)iPi_'Qinp .  sniipk 

-  -iihipeoiiip  .  1  rmin 

-  jiiipcoinp  .  i  rma!< 

-  shipcomp . srmin 

-  shipcomp .  srma;; 
■C     with/if 


'.claisS  of 

;  -  '  c  <3  r  r  i  e  r  '  f 
;-  'destroyer' 


<  inu 


.  -   cruiser 


.  c 


las 


ss 


ci'S  r 
ei  id  i 

newicreen  > 

if      sillP<J<itd 

tiien 
ueain 

write   ( ' 
wri  Leln( i  22  r 
wri Leln  i 
i-'ijse  selection  of 
'  H'  r  '  i>'     I     beam 

scrncn  L  ro ( off ) f 


cv 


Do  aou  want  to  delete  ship  number  ' ) i 
d  ' f kind  f  '  ?  '  )  ; 
'jesnosel  i 


writelnr       write In  J 
write       ('  Do    you    wish    to    chanae 

wr  1  teln  <  '  ai  ly    o-f    tJie    parameters?')? 
writeinf  yesnosel J 

case    selection    of 


writelnJ 
'  )  ; 


'N'  I 
end  J 
nd» 

■C 


■y'     J    bedin       shipparaf 
n'     :    put    (shiPdata); 

■C         case         > 


Put    (shipdata)?       end? 


enu  » 
end 

else 
beam 

wri  teln V ' 

wri  LeliiC  ' 

wri  Leln  i 

ccjse    selection    uf 


Do  you  wish  to  change  any  of  the  parameters  ' ) r 
for  ship  number  '»iJ2>'»  a  '»kind»'?      ')? 
yesnosel 5 


'^' 


!    bsttlin      shipparaf 

wi- 1  teln  J 

cuntinue  i 
enij» 


put  (shipdata) 5 
wri  teln; 
put  ( shipda ta ) > 


end; 


end ! 
end ; 


case 
if 


ae  I. 
until 
repea  t 


(^ahiPiiifiie)  ; 
tjof     v -oiiiP  mf  1  le  / 
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wrj.Lt?ifi('        Do  aou  wishi  Lo  add  more  ships  to  the  database?  ')? 
writeliiJ      yesnosel? 

if  ^electiuii  in  C  '  V '»'•:<' 3   then   be<^xri  moreshiF's;   put  (shipdata)?   end? 
until  selection  in  C'H'f'n'l 
ufn.j;  -C     REDOSHIP     > 

PROCEDURE  RED0MISSILES5 

P  i-uuedui-e  Pdrttwuf        forward? 
Pr-ocedui-e  Pd r ttii i-ee»     forward? 

PROCEDURE  MISSPARa;        -C      MISSPARA    partone     > 

beiliii  with    'jliipcuinti'       do  besiin 

riewsc  reen  i 

wri  teiri(  '  Lunii     ransie    SriM    probability    of    kill  :     '  »  I  ritipk  :  4  J  2  )  f 

if    ciiaiiiiei  t 
tiitfii    bei^in 

length    I-    4? 

1  i-mpk   :=  readreai  ( lendth)  » 
wr  1  teln? 
end  f 
^^cr^cn  t  ro(  of  f  )  f    writelnf     writelni     writeln? 

wr  1  ttf  ln(  '  SJioi- L    ran^e    SAM    ppobablita       of    kill  !     '  f  srmpk  J  4  J2  )  ? 

if    L^lianiieit 
tiien    be<jiii 

leiiilth    I-    4 J 

sriiipk       :-    readreal  ( lenslth )  f 
w  r 1 teln  f 
ei  id  r 
end  5  -C  ui  th  > 

writeiiiJ  writelnf  continue?  parttwo? 

end?  -C  illSSPARA  partone  > 

PROCEDURE    PARTTUO?  -C  HI3SPARA         parttwo  > 

Lieaiii  wi  th    \iiiApeoinp       do  be^in 

I  lewsc  reeri  ? 

wn  teiri<  '  Siior-t    ransie    ini^siie    ininiinuin    target    distance  t     '  ?srmin  J  3)  ? 

if    ciiandei  L 
tiien    ueiiin 

leriilth     '.  -    3? 
cneckvalue    (0»255)? 
srmiii    I-     temp? 
end  ? 
i>c  rnc!  1 1  ro  (  of  f  )  ;  wricein?  writeln?  writeln? 

writeiii<  'Siiurt     r^iiae     nissile    inaKiiiiuin     tarslet    distance  I     '>srma;<;3>5 

if    cliaiiiiei  t 
tiien    ueilin 

leiiilti'i    '.  ~    3? 
checkv««iue    v'0»255)? 
■oruia;<     I-     temp? 
end  ? 
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ei  iiJ  f  -C  wi  til  > 

wriLtrliiJ  writelfi?  cantinueJ  partthreeJ 

tfiirj;  -C  MISSPARA         psrttuio  > 

PROCEDURE    PARTTHREEf  -C  MISSPARA         partthree       > 

Liedifi         With    siiipcoinf*       do  beiSiri 

newisc  reen  i 

wr-i.  ttfiii<  ■  Lund    r^iide    missile    inirmiiunfi    target    distance  J     '>lrmin:3)» 

L-f    ci idriiia i.  i 
then    Lied  ill 

I  end  til    t  -    3  f 
ciiecl<.value    (0r2uZ)t 
1  cm in    t -    tempf 
ei  iiJ  J 
'jCci  n-i  1 1  ru  <  uf +' )  »  writelnJ  uritelnJ  writelnJ 

uiPi  teln(  'Lund    fande    mxssile    maximum    tardet    distance  \     'flrma;<J3)f 

i-f    ci  landei  t 
tiien    Ijedxii 

lendiii     J-    3? 
ciieckvaiue    (0»253)» 
I  rma;:     '.  -     temp? 

con tinue J 
MISSPARA         partthree       > 

ijedxn  -C  REDOi^ISSILES  > 

I  lewsc  f'een  » 

wcitelii<'  Do    -:<oij    Wish    to    cl^ande    any    of    the    siiiP'S''  ')» 

writeifi('  surt-dce— to-ai  r    missile    pa  pametersi*  ')» 

w  r i  teln  i 

wi-iteln<'  Tiiese    parameters    will    be    eauivalent    for    all    stnips.')? 

write In  J  writelnf  yesnoselJ 

cu'se    ■aeleutiun    of 

'  Y '  F  '  u '     :     bedin       missparaJ  misschnd     \=-     true?  endf 

'N'f'd'     :    missciind    \-    false? 
end »  -C  case  > 

end?  -C  RED0MI3SILES         > 

beam  -C  CHAN6EM  > 

setciiain    (  '  .  d2/ tiles i so .  code  '  )  5 
lie tcva i     V  cho ice)  J 
if    ciioice     -     'build    ail  ' 

tiien  bedm  fleetbuildf  ai  re  rf  tbui  Id  J  end 

ei-je       if    ciioice     -       build    fleet' 
Liien       fieetbuild 
ei'je       if    ciTUice    -     'build    air' 
tiien       a  1  re  rf  tbui  Id  5 
1--1.U.  •<:  CHANGEM  > 


enu  > 

end;         < 

with    > 

wi-i  teln  i 

writein? 

end  J 

< 
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PROGKAM  nBnGnMEr 


-C       1^    cuiiipiier    OP  U  ion    for    decr-easinsJ    memory    usade. 


USES 

-.-'tAiai-'  f  i-b-a  1  modes  r  transcend*  dppies  tuf  f »  thesis  tut" -P  » 
viu'oiii'J    .  iJ2/  tiles  ISO.  i  ib>    indkefo  nns  r  drat"  stuff  »bea  rinds? 


uONST 

re  t 
ret 
ret 
ret 
XI  iL> 

II  lU 

tul 
lilt 
rec 
Lniu 


r  -  ^O;  -C  Tlie  interval  that  the  attack  updates  it's  headinal.    > 

rtinie  -  120}  <  Time  of  retreat  for  tiie  attack.  > 

rtiidii  -  ?0»  <  Retreat  headind  for  tlie  attack.  > 

rtalt  -  20000f<  Retreat  altitude  for  the  attack.  > 

rtvei  -  400?  -C  Retreat  velocita  for  the  attack.  > 

uist  -  200?  <  Di'^taoce  from  carrier  to  descend  for  attack.  > 

ualt  -  200J  -C  Inbound  altitude  for  attack.  > 

-  0.3?  -C  Tolerance  for  bombinsJ  position  comparisons.  > 

tul  -  7;  <  Tolerance  fiumber  of  hits  a  ship  can  take  .  > 

uv  -       Zi  -C 
efauit  -  160 » 


Radial  distance  around  earner  for  aircraft  recovery. > 


>nR 


siiipda  ta»  siiwou  tf  1  le 
ai  i'uata»ai  ruutfiie 
i-ntrorief     pntrtwo 
■ji  Ill-base  f     si)ipiie,st 


;  file  of  shipj 

J  file  of  aircraft; 

siiipn  t  r  » 

shipnt  r » 

ai rpnt r ; 

ai rpn  t  r » 

ciitpn  t  r » 


<Jl  rij^^'jitir        airiie;<t 

atkbase*       c»tl<riext 

ufitbaser       ciitiiext 

cvxfcv^j  i  rwaiJ 

i_i  lUAce  »  kind  » insa  I    strindf 

f  rci  lum  fj.>,jfien    J  0..  205  i 

->  tup r 'J  tep  til  ru    I    boolean? 

1 1;;  >  I  ly  ?  scale  f  look  f  tiiDe  r  end  time  f  tms  tep 

.'^  ia^je  r'j»  rr  ri  ip  lay  reneplay  r  newcen  ter 


:  integer? 

set  of    0. .511? 


PROCEDURE 

PROCEDURE 
PROCEDURE 
PROCEDURE 
i^SCCHIlUnE 

r  nuucDunt 

PROCEDURE 


SHOUFLEET 
3H0U(»iTTnCA 
SHIPSTnTUS 
INTSTr^rUS 

qEWaXdluS 

nDrtS I  n 1  US 
nlRDELETE 


PROCEDURE  3HIFDELETE 


Li  11  sun  . 
VAR  b«se 
Ihiijufi  ; 
VAR    bcise 


ai rpnt  r  ? 
:     airpntr 
■ihipn  t  r ; 
',     shipntr 


)  i 


forward? 

forward? 

forward? 

forward? 

forward! 
forward? 

forward? 

forward  ? 


-C3iiiciuue    /';-•  foijf  1  les/' tiieSiSob  ♦  te;;t> 

■C 

-c 


fS    compiler    instruction    to    include    this 
Le:;t    file    when    coinpilind    the    codefile. 


no 


<  BttSimnxriii    Le.-st    file    Tliesisob. 

SEGMENT    PROCEDURE    SHOWFORMSf 


'J  r  J+' 
dr-<:*-f 

move 

insil 

move 

move 

irisu 

iiiuve 

iiiuve 

ins^ 

move 

inuve 

iriove 

move 

irisil 

move 

iriove 
move 
move 
Kiove 
move 

move 
recJiJ 


xxino'Je    (uw280r  1 )  i 

i;;onf     miiformsf    airformsJ 

Presented    below    are    the    figures     Liiat  '5 

0rl90>f  urntwribe    (  3  f  insaC  1  3  » lensith  <  msa  )  » 0 » 12 )  f 

1    be    used    in    tiie    ■^rafhxc    displaas.  '5 

aO>»  unitwrite    (  3»insi4C  1  3  »  lensith(  msd)  »0  » 12)  5 

dc-Lual    position    o-f    the    unit    shown  '? 

60)»  unibwrite    ( 3 » msdC 1 3 » length ( msa ) f 0 » 12 ) f 

1    be    tiie    ijpper    left    point    of    figure.     '5 
GO  )  f  unitwnte    (  3f  msdC  1  J  » lensithv  msa)  »0  » 12)  J 

SHIPS  -iIRCRAFT  '? 

to    (0»120>f  unitwnte    (  3»msyC  1  3  » len£»th(  msd  )  >0»  12)  > 

:-:     '  FIGHTER  r)EU  'J 

10)J  unitwnte    (  3>insilCl  j  »  leri!3th(  msd  )  »0»  12  )  f 

»100)»  drawimasie    (  shipf  arinr  2i>0)-0f  8»6)  ?  dotat    (39    »100)f 

flOO>f  drawimaiJe    <intforin    »  2 »  0  »0  f  10 » 6 )  »  dotat    (152>100)> 

»100)>  drawimade    (aewfopin    r  2»0»0  ?  10»6)  »  dotat    (225fl00)? 

RADAR    CONTACTS  ' ? 

unitwnte    (3»msdCl  J  » leniJth(msa)  »0»  12)  » 


to 
to 
to 
to 


to 
to 
to 

to 

to 


wi  1 
0»1 
riie 
OfI 
wi  1 

o»i 


<o»i 
(G? 

(132 
v223 


(Of  70) » 

:^  '  AEW   FIRE  CNTRL   AIR  INTCPT   SHIP  3RCH 
to  (Of  GO) f 
to  (14  »40>F 

tu   (70   F  40 )  F 

to  ( 1u4f40) f 
to  (238f40) ; 
:-  'pcess  SPACE 
to  (40f8)f 
(selec  tion) f 


unitwi-i  te  (3FinsaCl  J  F  lenath(ms3)  fOf  12)  F 
dr-awiinai^e  (aewrdr  f2f0f0f5»3)f 
drawiinasie  (fcrdr  f2»0f0f3f3)f 
drawiinade  (airdr  f2f0f0f3f5)f 
di-awima^ae  (ssrdr  f2f0f0f5f5)f 
BAR    to    cuntiriue'} 

uni  twn  te    (3FmsdCl  J  f  lena  th  ( insd  )  »0f  12)  f 


SHGUFORMS 


oEGHENT    PROCEDURE    POSITRANSFER    5 
bean  I 

f  i  tbase     ;~    ml? 
■jiiiprie;;t     l~    sriiPbaseJ 
f  i-fip  1  a'a    I  -    Z2i 
while    siiipnesJt     ^"-    nil       do 
ues^ii  I 

I  lew     (  f  1  ti  lej't  t )  F 

f  1  tri«;;  t  "■ .  ;<POS     J-    shipne;-<  f"  .  ;<POS  i 
f  1  tiie^f^  .  apos    :-    shipne;<  t"  . ':<POS  i 
f  1  tne;;  f* .  riuiii       t-    shipnext  "* .  num 
fi-npLaa     >-    fi-npla^    t    Csi  iipne;;  f^  .  nuin  J  f 
f  i  tne;^  t"  .  wha  t     i-    boat? 
f  1  tne.".  t"  .  1  XI  ik    I-    fltbasef 
f  1  tbase    I  -    f  1  tne;<  t  f 
siixpi  le;:  t,  1=    -ihiprie;;  t~  .  i  ii  ik  f 
ei  id  F  -C  wfix  1  e  > 

■3ii'iie;;t     ;-    airba^eF 
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beSxn 

if     <  <  c<i  rrie;<  t" 
Liien       Lie^txti 


ml       do 


5KOS 


t:v;< ) 


(  ai  rne!<t~  .  ypos 


cvy )  ) 


new     (f  1  trie:;t)  5 
fl  tnexL"  .  ;<F'QS 
f  1  ttie^f.apos 
f  Itnex  t"  .rvjm 

if    <3i  nrii 
Uiien 
el^e 


<ai  rne;; 
fcffid* 


di  rnext" . kpos  f 
airne;<t~.  anos  f 
ai  rne;<t"  .num  f 

I-  frnplay  +  Cai  rnex  t,^  .numJ  » 
»;<  f*  .acfrnd  =  aew 
f  Itnexf  .  u((iat,  i-    early 
f  1  LneNf.what  :=    fxdht; 
f  1  tne;-(  U"  .  1  ink.  t-  fltbaser 
fltbase  :-  •?Itne;<t> 
end?     -C     if     > 
'.-    ai  rnexf  .  1  ink  J 
<     while    > 


aewcn t ; 
sscnt  ? 
axcnb  i 
fccno  ; 


crrLrie;<t    I-    ciitbaser 
while    cntnext    <>    nil       do 
besiiri 

I  tew     (  f  1  L.fie;<t. )  5 

f  1  tnext"  .  ;<>-C(S     I-    en  tneNt*^  .  ;<f»os  > 

f  1  orie;<  t^  .  ypos    1=    en  tnext"  .  yposf 

f  1  Lnex  t"  .  num       J-    cntne;;  t"  .  mjm? 

frni'la":^     I-    ft-nplaa    +    Ccn  tne;<  t"  .  nutn  J  f 

case    cnLiiext"  .  who    of 

asicch  I  f  1  tnex  t~ .  what  I 
ssi-ch  t  f  1  Lrie;-;t"  .  wha  t  : 
ax  :     f 1 LnexL". what    : 

fu-oii       ;     f  1  cnex  L"  .  what    J 
enuf  -C  case 

f  1  Liie;<t"  .  link    I-    fltbasei 
flUbase    J-    fltneutJ 
cjiLne;<t     J-    en  tnext"  .  1  ink  5 
erid  i 
enebase     J-    nxif 
dtkne;<t    i-    atkbaser 
enepiairf    •-    l!]» 
wiiile    atknext     O-    nxl 
be::jiii 

new     (  enene;-!  t )  » 
enerie;<t'"  .  ;;PU"i     I- 
eiiene;<  t^  .  apos     ', - 
enene.'tt"  .  num       I- 
eiiep  l<sa 
ei  let  le;;  t. 


do 


enene;'.  t' 
ei  lebase 
a  ui<ne;<  t 


atknexf  .  :<Pos 
atkrieKt"  .  jpos 
a  tkfiext"  .num 

-  eneplaa    +    Ca  Lkne;<t"  .  i  njinJ  J 
what     '.  ~    plfief 

link     '.  -    enebase? 

-  eiienextj 

:  -    a  t.kne:<  t, ^  .  link? 
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SEGnEWT  PROCEDURE  WHATNEXT; 

UtfSllll 

iii'jj     I-     '       IJCpsCfijle      /       DCownscale       /       R(ec6fnter     '» 
inovetu    (0»191>;  uni  twn  Le<  or  insaC  1  3  » lenath<  ins3)  »0»  12)  ? 

'Jutdt    <0»11);  iJutdt    (0»13)> 

iiiuveLu    (Of  12)?  lineto    (sc3le»12)J 

dutsjL    <scc*ie»ll)f  dutat    (sealefl3);  moverel     (2»3)? 

iriSiS    C-     '     -=;•    10    HH' i  ijiix  twi'i  tev  3»iiisaCl  J  f  lenathC  ms3  )  »0  f  12)  ? 

iiisa     J-     '     CCuriUiiiue  fiiTie     J      '? 

inuvebo    (.OrQ'ji  am  Lu  ri  te(  3  unsdCl  j  r  lendth  (  msa )  ?  0  » 12  )  f 

s  L  r     (  Lime  »  msii  >  f 

inuvetu    <220fa)»  unx  Lwr  i  te(3»insyC  1  J  »  lenath(msd)  »0  r  12  )  J 

^r-jfi;;on5  r'e«»ij    (  select  lun  >  J 

wiixle    not,    vseiectiofi    in    L'C'F'c'»'U'»'u'»'D'f'd'»'R'>'r'J)    do 
beain 

acrnciiL  ru  <  uei  )  ?  read    (-selection)? 

t'l  id  r 
caiiti    seiectiun    u-f 

U't    u       J       besiin  scdleupf  scale    J=    scale    div    2?  end  J 

'D't'<A'     I       uesJiii  scaledownf  scale    i-    scale    *    2t  endf 

R  '  »  '  r  '     J       besiin 

acrncritro<  cl  r  )  ;  scrncnt  ro  (  of  f  )  f  texton? 

wpitelnf      uritelof      uriteln?      writelnJ 

uii'iteln('   Choose  a  unit  riumber  from  the  last  display  '  )  r 

writeln('   on  which  you  wish  to  recenter  the  display.  ')» 

wr-itelnJ      writelnf 

if  atkaraf 

tiien  players     I-    anef-iay 

else  i-layers     '•-    frnpiayJ 

write       ('       Must    be    a    DISPLiiYED    number       :        ')» 
so  f-ncri  tro(on)  i 

len    :-    3»  nucent     ;=    readint ( len ) 5 

wi'iile       ((rnjcent    <    0)  or*  (nucent    >    311))       do 

beam 

scrncnt  ro(  bel )  »  wntelnJ 

wi'ite       ('       Must    be    a    DISPLAYED    number       :        ')f 
nucent    1-    readmt  ( len  )  J 
end?  <  while  > 

newceritj-r    I-    Cnucentjf 

while         not     (newcenter     :-    players)       do 
beam 

scrncftt  ro(bel )  »  wciteln; 

wi-ite       ('       iiust    be    a    DISPLAYED    number       :        '); 

nucent    :-    readin  t  ( leri )  » 

wiiile       ((nucent     :.    0)  or  (nucent         311))       do 

sc  men  t  ro  (  bei  )  »  writelnJ 

write       (■       i-iust    be  a    DISPLAYED    number       :        '); 
nucerit     ',  ~     r-eadin  t  (  len  )  » 

end?                 -C              while  > 
newcenter     J-    CnucentJ? 
end  ?                -C             whi  ie             > 
recenter-? 
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end  i 

end?  -C  case  > 

enij  f 

3EGHENT  PROCEDURE  ACFTMOVESJ 

write        ('  EfiLer    desired    hesdinsS    of    aircraft       '     ')» 
ieii     J-    3r  h'j'J    J=    readin  t  (  len )  ;  wnteln;       uiPiteln? 

while     vJidu  -'■■■    3G9)     do 

ue'Ji  1 1 


wiiteifiv  '  Headiii!^    Jiiust    Lie    between    000    and    359.     ')»       wntein; 

wiite       <'  Enter    defined    iieadina     I     ')» 

Iiuii     I-     r-e«sdii  1 1  (  1  tfi  i>  J  writelnf  write  In  J 

eiidf  <  while  > 

<di  i-ne;;  f  .  <^i:m  th     J-    Iidii  5 

wr-ite       <'       Enter    deiiired    velocity    uf    aircraft     :     ')> 
len    J-    4f  vel     I^    readin t ( len > !  writeln;       writeln? 

while    vvel    .:•    2000)    da 

sc  fiici  1 1  ro  ( bel )  f 

writelfi<'    Velucib^  must  be  between  0  and  2000.   ')?    writelnf 
write   ('    Enter  desired  velocity  J  ')» 
vel  J-  i-eadin t (  len )  r    writelnJ    writeln? 
eiid?        -C    wiiile    > 
ai  rne;-j  f* .  velc  ta  J-  vel? 

write   <'   Enter  desired  altitude  of  aircraft  (MUST  be  <  25000)  :  ')? 
len  t-  5?     aitd  t~    readint(leri)?    wi'itein?   writeln? 
while  v'altd  >    25000)  do 
beUin 

scrncn tro (bel ) ? 

wi-iteinC'  Altitude    MUST    be    between    0    and    25000,     ')»  writeln? 

write       V '  Enter    desired    altitude    t     ')? 

aitd     i-     r-eadin  t  (  len  )  ?  wriueln?  writeln? 

end?  <  while  > 

ai  iMiejtf  .  c<i  t    ;-    a  ltd? 
end  ? 

cESilENT    PROCEDURE    HOVErHC    (    whatac    :    frndtype? 

dowhat    i     strina  )? 

Ua  r 

desj»disrj     I     mtesier? 

duwhatnuin     '.     1..10? 

beijin 

airne;;t     '.  -    ji.  va^'niiii  j     '.  -     1? 

if    dowhat    -       launch' 
tiieii    dowriatiiuni     I-    1 
else    if    downat    -     'move' 
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Uiieri    dowiia  ti  luin     i  =    2 
a  I'm    'Jowiia  tnutn    J-    3f 
scrricf  I L  ro  <  ci  (' >  f  sci-ncn  t  ro  (  of  f  )  ?  wntelnf 

will  It?    atiiTiext    <>    nil    do 
beiiiii 
■bCM'iicn  t  ro  (  cl  p  )  >  sc  rncn  t  ro  <  of  f  )  »  writeinf 

if    w(    -    1     Liieii      beslm 
CdStf    wii<3i.<^c    of 

iiitcpt    J       kind    :=     'fiiihter'J 

<jew  I       kind    3=     'earla    warning    aircraft' 5 

end?  -C         Ccjst?         > 

c<i<je    dowhdtriuin    uf 

1  I     if  ( ( ai rnex t^ .al t    -    0)  and  (ai rneNt" . acf rnd    =    whatac) 

and  (  ai  rne;<t"  .;<HOS    =    cv:<)       and       <  ai  rnext"  .  ypos    =    cvs)) 

tiien    beidm 

if    whatac    =    aew 

tiien    ai  i'ne;<  f^  .aewndr    I-    240 
else    bedin 

ai rnext" . intndr     ;=    120f 
ai rnewt" . aam    J=    6? 
end? 
wntelnf  writeln; 

writelfi<'    Launching    a     '»kind»'5')f 
wi'itelnJ       wntelnJ 
acf  tinovesf 

J   ;  =  u  +  1 5 

tfi  id  p 

2r3  '.     if  (  (ai  rrie;<  t^  .ai  t  <;•  0)  and  (ai  rne;<t"  .  acf  rnd  =  whatac)) 
tiieii  beam 

deil  :=  desJrees  (  cv;<  f  cvyf  ai  rnext"  .xpos  f  ai  rnext"  .  ypos  )  ? 
dis  J=  distance  (cv;<»cvy  »  ax  rnex  t"  .  ;<posr  ai  rnext"  .  apos  )  ? 
dis  :=  dis  *    lOi 

write   ('   Do  aou  wish  to  '»dowhat»'  the  '^kind)? 
writein('»  iruinber  '  >  ai  rnext"  .  num  1 2  r  '  located  ')? 
write   ('   'rdedJof'  desirees>  'FdisI3); 
wriLelnC'  NM  from  carrier?  ')» 
if  iJuw^iat  -   move' 
then  bedin 

writelnr    writelnf 

write   ('      Current  heading  is    '     ')i 
writeln(ai rnext" . asmthJ  5)»    writeln? 
write   ('      Current  veiocita  is  '.     '  )  r 
writeln<,'ai  rne;<t"  .velctyJ5)»    writeini 
write   ('      Current  altitude  is  I     ')» 
write   (ai rneKt" .alt J5) » 
if  (ai rnext" . al t  =  1) 
then  besii.n 

write   (  '  '  >  J 

writelnc 'Aircraft  is  bein3  RECOVERED'); 
w  r i  tein  r 
end 
else  bed  in    writ.ein»      write  In?    endf 
end  F 
writelriF     aesiiosel>    writelnf    writelnJ 
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if  selection  in  C'Y'p'y'D 
then  if    dowhal  -  'move' 

then  bedm  <3cf tmovesf    J  :=  J  +  1?    end 
else  bedin 

31 rnext" .ai t     t=  If 
ai  rne!<t"  .  velcta  J=  350? 
if  ded  <  180 

then   ai rnext" .azmth  2=  ded  +  180 
else   ai rnext" .a^mth  :-  dea  -  130» 
J  t  =  J  +  1 J 
end?      -C     if  yes    > 
end?        -C    if  case  2t3       > 
end  J     -C   case    > 
end;     <    if  J  -^  1   > 
aii'ne;<t  J-  ai  r"i  lext"  ♦  1  ink  J 
end;     -C    while    > 
end ; 

3Ea«eNT  PROCEDURE  SKIPMOUES? 
ciSfSPd  I     intedei-f 

Lie>:iin 

write   ('   Enter  desired  Plil  (course)  J  ')» 

ien  i-  3»      crs  1=  readin L ( len ) »    wpitelnJ   writelnJ 
while  (crs  >  359)  do 
ue^ii  I 

scriicn  t  r*o(  bel  )  i 

writein('  Course    must    be    between    000    and    359. ')» 

wr  1  tell  I T  i 

write        ('  Enter    desired    PIM  !     ')» 

crs     J-     rec»din  t  C  Ien)  ;  writelnf  writelnJ 

end  J  -C  whiles  > 

•ihipne;<  t"  .  H-iiii    t-    crs> 

write       ('       Enter    desired    s^-eed    of    advance  J     ')? 

ien     I-    2r  spd     t-     readm  t  (  leri )  f  write  ln»       write  Inf 

while    (spu    >    ZO)    do 
beiim 

sc  i-t  icvi  t  ro  ( bel )  f 

writeln<'  Speed    must    be    between    0    and    30 . ' ) J 

wr 1 telnJ 

write       ('  Enter    desired    speed  '.     ')» 

spd    I-    readm  t  (  ien  )  ;  writelnJ  wntelni 

eridJ  -C         while         > 

31  iiprie;<  f  . 'jua     I-    SPd  » 
end  T 
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SEGMENT  PROCEDURE  MOVESHIP  (.Jowhdt 


sUrinsl)  f 


ro^  nil 

I  ISU<J 

duwhd  Lriuin 


ifiteaer  i 

0. .359; 

0 . . 30  f 
1 . .10; 


ue^iri 

■jiiiprie;;t     J=    -iliiPOdseJ  j     t=    If 

if    iJowiidt    =       sinsile' 
Li  mil    uuwiid  ti  KJin     •-    1 
ti>i<j>e    uuwiia  ti  lum     J=    2? 
wiiile    •jiiipnexL    <>•    nil    do 
L>e:bt  111 
■jjCitici  10  ra  ( ci  p  )  »  sc  rncnt  ro  (  off  )  r 

if    -I    -    1     tfien    beain 
Ccj<jb    iJuwitdtnum    of 
1     •     be<3in 

Ccjse    shiKneNt"  .  cl<3ss    of 


writelnf 


cv 

>Jest 
crsr 
end » 
ded  t  - 
dis  :  = 
wri  be 
wr i  be 


kind 
k  i  nd 
k  1  r  id 
<   case 


'  carrier' r 
'destroyer ' 
'  cruiser ' » 

> 


ijedrees  (  cv!<  r  cvy » shipneMt"  .  ::pos  f  shif»nejtt"  .  ypos  )  J 
distance  (cv;!»cvy»  shipnext"  .  ;<pos  » shipnext"  .  ypos  )     *    10  J 
(  '       Do    •dou    wish    to    move    the     '  f  kind»  '  r    number     '  )  ; 
(  shipnex  t^  .nuni!2)  » 
if    siiiPfieKt'"  .class    =    cv 
tiien       writeln<'?') 
else      besiin 

writelri('     located    ')» 

write   ('   '»ded:3»'  deareesf  'fdisJ3>T 
uriteln('  NM  from  carrier?  ')» 
end?     <   if   > 
wr 1 telnJ 

Current  PIM  J  '  »shipne;<t^  .  Pim  )  » 


wri telnJ 
w  r  1 1  e  1  n  ( 
wPi  telnJ 
wr  1  be In ( 
w  r  1  be  1  n  » 


J     5  =    J    +    1  ? 


Current    SOA    J     '  » shipne.'tt"  .  soa )  » 
yesnosei;  wribelnJ  uiritelnf 

if    -selection    in    il  '  Y  '  f  '  y  '  3 
then    beam         shipmoves? 
end  i 
beam 

uvx teln ; 

wi-i  teln  (  ' 

wr  1  beln  i 

wri teln( ' 

w  ri teln  i 

wfi  teiii<  ' 

i>nipi(iuves  i 

iipiin    :-    shiPneKt"  .Pim  f 

nsua    I-    siiiprieKt"  .  so«3  f 

shiPiie;<t     J=    sill piie;<  t^  .  1  ink  > 


end  J 


wri tain  r 

Alterind    bite    course 

wri teln? 

Current  PIM  '     ' 

Current  3CA  t  ' 


/  speed  of  the  fleet 
»shipne;<f^  .pim  J  ? 
f  shipnexf  .  soa  )  • 


>  » 
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ei  lu  f 
end? 

i-f    dowiial 
eiidf  -C 


iahipneNb''.pim    J=    npiinf 
shJ.F'ne;<t"  .  soa    J-    nsoaJ 
•jhipnext     :-    shit='rie;<t"  .  1  ink; 
ariLil    •jhxj='ne;;t    =    nil? 
tfiid  f 

■C  Cd^e  > 

<.  if    J    -    1  > 

'fleet'        then    shipnext    I-    shipneK t" . linkf 
wiiile       > 


■s^rid  > 


SEGi-iEiNT    PROCEDURE    rInKECNTC     (     whatrdr 

dee»df  Idd 

nmbl » nmb2 


rdddrtapej 
booisani 
real  » 
inteiier 


UnR 

iiewuntc    !    buoleanr 

i;;  f  xy  ?  ex  »  ca  J     intesJerf 


oe'Jin 

L-ntrie;<t     I-    ciitbasef 
newcntc    J-     Lrue? 

i;<     t~     i-ound     (;;)»  ia     1=     round     (y)? 

wiiile    cnbnext    <>■    ml    do 
bed  in 

c;;    ;-    round    ( en  tnex  t"  .  ;<pos  >  J  ca    J=    round    <  cntnexf"  .apos)  ? 

if    <(c;<    -    i;<>       and       (ca    -    xa)) 
Oiieri    if    cntnext"  .dead 

Lhen      newcntc    J=    false 
else    if    deadflasl 
then    bedin 

newcntc    t=    false? 
cntnext" . who       i=    whatrdr? 
en tnext" . rdnm    I-    nfflb2  7 
en  tnexf  .  dead    J-    deadflasSf 
end 
else    if    ard(whatrdr)    ;     ard< entnext" . who ) 
then    bedxn 

newcntc    :=    false? 
cntnexf  .  who    t=    whatrdr? 
cntne!<t'' .  rdnm    1=    nmb2; 
end 
else      newcntc     J-    false? 
entiie;:L     t-    en  tnexf  .  1  xi  ik  ? 
enu  ? 
XT     newcntc 
tiien    beiixn 

new     (  en  Lne;<t )  ? 
en  ti  ie;<t"' .  ;;f'OS 


en  ti  le.".  f  •  apos 
en  tnext" . nam 
en  Lne;;  t  "  .  wiio 


-  a  ? 

-  f  renum    +    runbl? 

-  whatrdr'? 
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critriexf .  rdrim    t-    nmb2? 
en  tut;;;  t"  .'Jead     J=    deadflaiir 
cf I  tneKt"  .  1  j.iik    5=    cntbaief 
en  t,u«<se    I-    cntrie;<L» 
end  5 


^nd  i 


3EGMENT  PROCEDURE  SHIPRADARCNTC f 

UAR 

distfurdfltfrt    t     intesJep? 
aK  »  ay  »  rii  I     ceal  i 

nm  C    0 . . 253 f 


randutiii^e  r 

sitij-ne;-*  b    J-    ■siiipbase  J 
while    shii-ne!<t    <>    nil    'Jo 
with    -oi  iiPnexf    do 
bb*^in 

aLi<.ne;!t    :-    atkbase? 
scr'ticntro<  If  )  ;  write 

wiiile    dtknext    <>    ml    do 
ue:^irt 


(  ' =>     '  ) 


a;;     I~    aiknex  t"  .  ;;pos  f 
mil     i—    a  tkne;<  t"  .  nuiii  f 

ft  I     ;    ■      !.  .  .    ,     .^   .,  .  .ji  t  >  ? 

di-^l     i-    dii>  tance  <  ;-iHos  f  i:<POS  f  3!<  »  ay  )     ^ 
I.i  rii        C-    de-araey     (  a;<  »  ay  r  ;;pos  r  ypos  )  » 
IL    t-     C  a  tkne;;  t"  .  a;:iiith    - 
rt     :-     (atknexf  .a-:inth    + 
if     (it    <         0)        then       It 
if     (  rt    >    360)        tlien 
if     v'<dist     :-    srin«3;<> 
and     (arsain    >    0) 
then    bti'^i.n 

srsam    '.  -    srsam    -    15 
if     random     •  -    iridKint 
then 
else 


ay  ;-  atknext". ypusJ 


rt 


lOi 


atknex t" . asmenv  div  2) 

atknext" . asmenv  div  2) 

:-  It  +  360f 

:=  rt  -  360f 

(dist    >    srrnin) 
<dist    <=    rh)     > 


arid 
and 


*    s  riiipk 
inakecritc     (  f  con  r  t  rue  f  a:<  r  ay  »  rimfnum  ) 
inakecnte    (  f  con?  f  3lse»ax  »ay  »niii»nijm)  J 


end 
el^e    if 


if 


(     (disfc     :>    Irmax)  and  (dist    >    Irmin) 

and  ( 1 rsam    >    0)  and  (dist    <=    rh)     ) 

bhen    bsilin 

1  rsain    J=    1  rsam    -    IJ 
if    random     •>    maxint 
then 
else 
and 
else    if     ((dist     ■-    fcrna)  and  (dist    <=    rh)) 

t!)en      makecntc    (  f  con  »f  3lse»  ax  »  ay  »nin»nijin  ) 
else    if     ((dist    •:.-    ssrn^)        and       (dist    <=     rh )  ) 

then  makecntc  (ssrchrf alsec ax »ay » nmf num ) » 
((dist  <-  tul)   and   ( a tknext" . bomb  >    0)) 


M    1 rmpk 

makecntc    ( f con  r true  r ax » ay  »nm  mum ) 
makecntc    (  f  con  f  f  3lse»  ax  > ay  »nin»nijiTi )  » 
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then    be^in 

dtkne;;  t"  .bomb    I-    atknext" .  bomb    -    15 
if    random    ■'-.-    max  in  t    *    atknext"  ♦bombF'k. 
Liieri  bints    :=    bhits    +    IJ 

end 
el^e    if    (<di&t     :>    atknext" .asmrn3)       and       ( atknext" . asm    >    0) 
and       (br^    >=    It)  and  (br^    <~    rt) ) 

then    bedi.n 

atknext" .asm    ;=    atknext". asm    -    1? 
if    candom    <!=    niaxxnt    *    atknext"  .asmf»k 
then         iiii'iits    J-    mhits    +    1? 
end  F 
if    (\biiits    +    mhits)    >    hittol) 

ti  len       sunk     X-    true? 
atknext    I-    a  tkriex  t"  .  1  ink  > 
end;  -C  while         atknext  > 

shii-'tiext    I-    link? 
end}  <      with  > 


■SEGMENT    PROCEDURE    AIRADARCNTC » 

■Jist  »br-«i»  1  tir  ntr»  1  tin?  r-tm        J     inte3er» 
axraaKiMi  J     realr 

nm  ;     0.  .233  J 


besiiri 

i-ai  I 
ai  r 
•ji.-  r 
whi 


■juiiii.: 
t  le;;  t 
lien  1 1 
le    ai 
eijxi  I 

if       o 

th 


e  y 

J-    aicbase? 

o(clr)»  scrncnt po ( on )  ; 

riiext    <y    riil    do 


texton? 


1 inext" .ait    >    0 
tfii    witii    airnext"    do 
beam 

atknext    I-    atkbasef 
icrncn tro( If ) »  write 

while    atknext    ■  .>    nil    do 
beairi 
ax 
rin 


(  '=:: 


) ; 


ay    t=    atknext' 


ypos? 


'.-    atknext"  .  ;<POS  J 

J-    a tknext" . num » 
i-h    :-    1.23    «    ( sart  (atknext"  .al  t)     +    sartCalt))? 
dist     '.-    dis  tanctf  (  xpQs  f  ypos  f  ax»  ay  )     *    10> 


bi'd  :=  decrees 
Iti'  '.  -  (azmtii  - 
r-tr-  I-  (aiimth  + 
if  (Itr  <  0) 
if  ( rt r  >  360 ) 
i  tm  J  -  ( a::mthi  - 
rtin  ;-  <ai:mtri  + 
if     ( 1 tm     ^  0 ) 

if     (  (■  tm    >    360  ) 
case    acfpnd    of 


( xpos »  ypos  f ax  »  a« ) 
aienv       di v    2)5 
aienv       di v    2 ) J 
ttien       Itr     '.=■    Itr    ■ 
then       rtr     t-     rtr    ■ 
aamenv    div    2 ) J 
aamenv    dx v    2 ) » 
then       1  tm    '.-    1  tm    • 
then       r>tm     :=     rtm    ■ 


360 » 

360  f 


360? 
360  5 
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if  (('Jist  •;>  aewrna)   and   (dist  <=    rh)) 

then    makecntc  <  asrchj-Palse*  a;<  »  aa  r  nm  » num  ) 


intcft    ; 

'■     if     ((dist    <-    aainrnsl) 

and 

(aam 

>    0) 

and          (br3    >-    lLin> 

and 

(bra 

<=    rtm) 

and          (dist    <=    rh) ) 

then    bed in 

aam  ;=  aam  -  If 
if  random  <=    maxint  *  aampk 
then  makecntc  (ai  f  true? a;<»3y  »nm»num) 
else  makecntc  (ai  ff  alse»a:<»aarnm»num)  J 
end 
else  if  ((dist  :>  airna)  and  (dist  <=  rh)^ 
and  (bra  ;=  Itr)  and  (bra  <=  rtr) 
then   makecntc  (  ai  >f  3lse»  a;<»  ay  fnm»num)  » 
end?      -C     case     > 
atknext  1=  atknext" . 1  ink f 
end;       <      while    atkne;<t      > 
end?  -C      with      airnext     > 

cJirnext  I-  ai  i-next"  .  1  ink  ; 
tfiidf  -C      while   airnext       > 

end  5 

SEGMENT  PROCEDURE  3H0USTATUSJ 

bean  I 
(•ej-ea  t 

sciMicnt  i-o(  cl  r  )  ?     scrncntro(af  f  )  »    wntelnf 

wi-iteln('     Please  select  an  option  accordina  to  which  status  of 
writeiri('     furces  r-eport  you  wisi"i  to  fenjse* 
wri  tell  I J 

wi-iteln('  1  I   ShiPS. 

wi'iteln('  2  J   Fiahter/intercptor . 

wi-itelnC'  3  J   Early  warnina  aii-craft. 

writelri('  4  :   Radar  contacts, 

wr-i  telnf 

writt?ln<'  Q  ;   Qijit    ')? 

write In;      writelni 

wri  teiiiv  iMCTE  ::   CaORDINATE  POSITIONS  are  SCALED   :    1  =  10  NM.'); 
write in f     writelnJ 

writeln('     rhfter  youi-  selection  you  will  be  presented  with     ')? 
wr-iteiii('     specifics  and  status  information  concernina  your      ')i 
wntelnv'     '^election.   Yuu  will  then  be  returned  to  this  menu  '  )  i 
uiriteliiv'     where  you  may  make  another  selection  or  repeat  a')? 
wr-iteliiv'     previous  selection  or  auit.    ')» 
i'e=*d  (selectiun); 

while  not  (selection  in  C ' 1 ' . . ' 4 ' ? ' Q ' » ' a ' 3 )  do 
beam 

■->u  rritfit  rocbel  )  »  wn  teliif 

writelnv'  fou    must    select    one    of    the    available    options.     ')» 

wcite       ('  Please    try    aaain    :     ')» 

reeju     (selection)?  writelriJ 

end;  -C       wiiile  > 

Cc»se    selection    of 
1        J     shiPS  ta  tus ; 


which 

stai 

;us 

' ) ; 

' ) ; 

' ) ; 

' ) ; 

' ) ; 
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inis  t<3  tusv 

o  '  i    aeus  L<j  Lus  i 

'4'  X     rdrstdtusf 

end>       <    case 

until  (selection  in  C 

encir 


Q'  f  'a'D  f 


SEGMENT    PROCEDURE    NEXTEyENTSJ 


uesiin 

sci-ncnt  I 
wri Leln  < 
w rx  teln  J 
w  r 1 Leln  < 
uici  teln( 
wci  tell  I  < 
wri  teln  < 
wri teln( 
wri  teln ( 
wr i  teln ( 
wri teln ( 
wri teln  i 
wr'i  teln  < 
wri teln  < 
wri telnf 
wri  tell  I  ( 
wri  tell  I ; 
wpi  tein( 
wri teln ( 
wri teln ( 
wri  teln  (. 
read    ( se 

end  i 


o(c 


lr)»     3crncntro< of f ) J    writelnJ 

Please  choose  your  desired  course  c-P  action  ;  ')r 


Move  a  f i^hter/intercptor .        ' 
Launch  a  fidh ter/in tercptor .      ' 
Recover  a  f iahter/interci^tor. 
Move  an  AEU  aircraft.  ' 

Launch  an  AEU  aircraft.  ' 

Recover  an  AEU  atrcva-f  '-^ ,  ' 

Move/mariuever  an  individual  ship.' 
r^lter  the  PIM  /  SOA  of  the  fleet.' 


Review  the  display  of  forces. 
Review  the  status  of  forces. 


Qui  t 


'  ) 


w  r  i  t  e  1 1 1 » 
After    your 
about    youi- 
iiienu    where 


lee 


selection  you  will  be  asked  for  specifics  ')? 
selections  then  you  will  be  returned  to  this  ')? 
you  may  make  another  selections  repeat  a  ')» 
selection  fur  anotiier  aircraft/ship  or  ouit.   ')» 
tiun ) f 


SEGnENT  PROCEDURE  NEXTSTEP; 

besiiii  I 

sc  n  icn t ro < cl r )  ;     scrncnt ro( of f )  J     textonf 

write   ('    Current  GAME  TIME  (TOTAL  simulated  runnma  TIME)  is  :  ')? 

wr 1 tein( timw J3» '  minutes.  ')»      writeinf     wPitelnf 

if    erieplay     =     LI 

tiieti    be^iii 

stop     '.-    true? 

writelii<'       Tiie    i^ame    will    now    stop    because    the    attack    is    dead.')? 
end 
else    Lieiiin 

wri teln f  wri teln? 

writeiiiv'  Do    you    wish    to    stop    tiie    proaram    at    this    time?       ')> 

wri tell  If  yesnoself  wri teln?  wri teln* 

if    (selection    m    L'Y's'y'H) 
tiien       stup    \~    true 
else 
be^iii 

sci-ncntro(  of  f  )  »     wri  teln  »    wri  teln » 
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wi-iLe       ('  NOTE    ::    Game    WILL    STOP    after     ')» 

wi'i  Lein(  end  tune:  3f  '    minutes.  '  )  i 
wpiLelnf  wnbelrif 

wi'iLelii('  Enuer    iJesired    time    step    for    the    ne;<t    displas.     ')? 

writaliif  wntelnf  wriLeln; 

wi'ite       ('  TIME    STEP    (in    minutes)     I     ')>  scrncnt  ro  ( on)  ? 

len     '.  -    2?  tmstep    '.  ~    readint  ( len)  »       wpiteinJ  wPitelnf 

if     Liiistep    >    60 
tlien 
beilin 

wi'itelnJ  write  In? 

writein('  Con+'irm    wour    entry    of    J     'ftmstepJ3»'    minutes.')? 

WPitelnf  yesnosei;  wPitelnf  wpitelnf 

if    selection    in    Z'H'r'n'l 
t^len       bedin 

uipiLe       ('  Time    step    (in    minutes)     '.     ')» 

tmstep     J-    peadint ( len) r 
WPitelnf  WPitelnf 

end  $ 
eridf 


«i  id  f 

3EGHENT    PROCEDURE    FLTUPDATEf 

Lieaiit 

■iiupneKt    i-    siiipbasef 
wiiile    i»i)ipnext     w-    ml    do 
ue^in 

witii    sJiipne;-!^    do         £letiiew$<y    ( tmstep »  Pim  f  soa>  ;<pos  rypos  )  f 
It"    siiipne;<  t^  .  class    =    cv 
liien       be^lii 

L-v;<     :-    srnpne:<  L"  .  ;<POS  f 
cvy    J=    shipnexf^ . ypos f 
end  f 
■ii  I ipriex  t     1=    s^llPl  le.xt"  .  1  inl<.  f 
t*nd  f  -C  while  > 

jiriie;;L     J-    jii'uasef 
while    airiie;<t     ■>    ml    do 
beau  1 

witii    ai  TMie;;  t"    do 
IT     dlt     :•    0 
Liien    beam 

if    .jcf  rnd     =    dew 

then  if  aewndp  ■>  tmstep 

then   airdelete  < di rnext >3i rbase ) 
else   aewndp  l =    aewndp  -  tmstep 
else  if  intndp  ■-  tmstep 

tiien   airdelete  (  ai  rne;;t  f  ai  rbase  ) 
else   iiitndp  :=  intndP  -  tmstepf 
if  dlt  -^  1 

then  if  distance  <  cv;<>  cvy  f  ;cpos  »  ypos  J  ■.=  recov 
blien  besiin 
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;<!^as 

-    cv;<> 

•JHOS 

-    cv>j< ; 

-     Of 

dl  L 

=    05 

eii'J 
eliie    j^inth     ',=    deslr6*es     ( ;;pos  »yt>os»cv:<  »cvy  )  5 
ije  Lnew;<y     (  bins  Lep  »  a^in  Lii »  veicty  f  ;<pas  f  ^pos  )  i 
tfi  i<J 
else    beiJiii 

;;POS     I-     cv;cf 
lipuii     ;  -    cvy  f 
eiiuJ  -C  wi  th    /     if  > 

aiiTie;-<L     J-    di  rne;:  t"^  .  1  ink  f 
tfiid  f  -C  wi 1 1 1  e  > 


;n.Ji 


SEGMENT    PROCEDURE    rtTKUPDATE? 

ynR 

dx  F  jy     I     cedl F 

Lie^iri 

ciLkiKSHt    i-    dtkbaseF 
while    dtkiie:<t     C-    nil    do 

wiLii    atknexf^    do         ^etnewxy    <  tmstepFazmthF  velcty  fhpos  f<:^pos)  f 

dLkiie;<t    I-    <3 tknexL"  .  1  ink? 
erid?  <  while  > 

dLknext    i~    dLkbaseF 
if     Lime    !:■-     re  triune 

then  wiiile    c»tkne;<t     :.^•    ml    do 

be^in 

<j  tknex  t"  .  dsmth    1=    retrthd^J 
dtki  le;;  t"  .  velct':*    J=    retrtvelJ 
<3  tknext"  .dlt    t=     r-etrtaltf 
atknext    5=    atknext^  .  1  irik  f 
end 
else    if    (tune    div    look    >    0) 
then    beiiin 

look    J-    look    +    incPF 
wiiile    dtkne;<t    <'■    nil    do 
besiri 

ax    J-    atknext^  .;;Pos  F  ay     '•  -    atknext"  .  apos  f 

if     (.distance    C  ax  FaaFCvx  Fcvy )    *    10)     -!-    200 

then    atknext~.alt     '.  -    inbdalt; 
a  tkriex  t"  .  a^inth    2=    decrees     (  ax  f  aa  fcvx  »  cva  >  J 
atknext     '.  -    a  tknext"  .  1  ink  J 
!?ridF  <  while  > 

ei  id  F 
end  F 

•C  Seainniriig    text    file    The'5>is3b.  > 
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PROCEDURE  INITIALIZE? 

t-eseL    (siiiPdaLat  'ABA.  2  J  shi^ddta.  data  '  )  i 
jtu»*    '=    false?  tune       i=    05  look    J-    incrJ 

t"  rcTHJiB    ;  -    0  J 
•ji'nj-base    I-    nil? 
wiiilw    iioi.    tfuf    (siiipdata)    do 
Lieiiiri 

fi-cnijiii    l~    +''rcriuin    +    If 
new    (  i»iiipne;<  t,  >  f 
sitiPi  ie;<  t,"    t-    -ihifdata"  J 
sliipi  lext"  .  riuiH    J=    ffcriuitif 
if    ihiprie>;  i."  .  class    -    cv 
then      uei^xii 

cv;<    5-    siiipnexf^.  ;iPOS» 
cvy    J=    siiiprie;<t^ .  yposf 
end  i 
sliiPiiext"  .  1  xrik    J-    shiPbaseJ 
sliiPuase     J=    srixpiie;<t» 
iJet    <^nipdata)» 
end  5 
cluse    (slixpdata»  luck)  f 
end? 

PROCEDURE  DOAIRLISTS; 

beain 

r-eset    vaii'data    »  '  ABA .  2  J  ai  rda  ta  .  data  '  )  5 
aifbai>e    X~    nil*  atkbase    5=    ru  1  f        i     1=    OJ 

Willie    not    eof    (aindata)    do 
bei^in 

Case    ai  rda  ta"^  •  if  f    o-f 
eiiem^ii     I     besin 

1  :=  1  +  1? 

new  (  a  tkne.'<t  reriem<:^>  r 
atknext"  J=  airdata""? 
a tknext" . num  l~    i? 
a  tkne;;  t"  .  1  ink  l~    atkbase? 
atkbase  '.  -    atknext? 
end  J 
f  r-end  I    bed  in 

ffcnum  ;-  frcnum  +  1? 
case  ai rdata" .acf  n  id  of 
iiitcpt  ;  beijin 

new  (  ai  r'ne;<t  t  f  rend  f  intcp  t ) 
airnext"  ',  =    airdata"? 
ai  rne;;  t~  .  num  '.-    frcnum? 
ai  rne;-.  t"  .  1  ink  ',  ~    aii-base? 
airbase  t=  airnext? 
end? 
aew     ;  bedm 

iiew  <  ai  I'next  >f  rend » aew)  ? 
axi-next"  t=  airdata"? 
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31  rneMf.nijm    J=    frcnum? 
ax cnex L" . link    J=    airbaseJ 
airbsse    ;=    d^^ne^«t5 
end$ 
end?  <         case         > 

end?  <         frnd         > 

end?  -C  case  > 

iie  U     «.  ai  rud  ta  )  f 
liiidJ  -C  wiiiie  > 

cluse    ( ai rdaldf lock ) > 
eiidf  -C  DOAIRLISTS  > 

PROCEDURE    SHOUFLEET       ', 

L>ediii 

iiraf  iKinode    (uw280»l);  fiUpoptf 

flLriext    :-    fltbasef 
while    fltiie;-st    ■'■'.>    mi       do 
beijin 

ri;<     J-     fuund     (  f  1  titexf^  .  ;<>-os  )  J 
iia    !-    ru'jnd    (  f  1  tnex  t"  .  anos  )  J 
move  to     ( ii;<  »iiy  )  f 
case    +"1  tnext"  .  wha  t    of 

ijoat  I       drawimasie    (  shiP-Porm? 2  r  0  »  OfS? 6  )  » 

earia       I       drawiina^e     (  aewf  orm?  2  f  0  »  0  f  10  f  6  )  » 
fidiit       J       drawimd^e    (  intf  ortn?  2  »  0  f  0  » lOf  6  )  J 
aewcnt    I       drawimasle    (aewrdr    r2f0T0r3»3>f 
aicni        t       drauimaae     (airdr     f2?0f0r3F3)f 
fccnt       t       drawiina^e    (fcrdr    >2»0»0»5t5)J 
sscnL        J       dr-awinia^e     (ssrdr     f2»0»0»5»3); 
end?  -C         case  > 

duoat     ( 1  !,••;»  riy  )  ?  str     (  f  1  tneKf  .  nuiii  »  ms3  )  » 

iiiuvetu     (iixnia+S  )  »  'jni  bun  Lev  3 » msaC  1  3  >  lenath  (  msa  )  » 0  >  12 )  » 

fltiie;<t    I-    f  1  LrieK  f^  .  link  J 
end  f 
end  5 

PROCEDURE  SHOUATTACK  *f 

Ue^ii  I 

a  rat'' ixmode     <L>w280»l>?  fillport? 

efnene;:!:.     t-    enebaser 
wiiile    enei'ie;<'t     w-    nil       do 
bedin 

n;<     :-     found     <  enerie;<  U"  .  ;;>»os  >  > 
na     :=     round     (  eneneu  t,"  .  anos  )  f 
iTiuveoo     (ri;<»na>? 
if    wnenex  L"  .  wiia  t     -    f='lne 

Liien       dt-awimade    (  intforin  f  2  f  0  ?  0  »  10  »  6  ) 
else       drawiinaiie    (ssrdr    »2>0»0»3»3)5 
duLaL     (n;c»ns)f  str     (  enenejtt"  .  nuin  » insd  )  5 

inuve  to     (  n;<  r  <  ia+8  )  »  ijni  twrite(3>(nsdClj»  length  ( ins  3  )  »  0  »  12  )  > 

enenext     '.-    enenex  t"  .  1  ink  » 
endf 
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end  f 

PROCEDURE  AIRDELETE  i 
VAR 

ueairi 

it"    biiisun    -    bdse 

Liieii      bdse    i-    thi sun "^  .  link 
else    bsiiin 

last     J-    baseJ 

while    las t^. link    <>    thisun    do 

Idst     ;-    Idst^.lmkJ 
lasL".liirk     '.-    tiiisun^  .  1  ink  ; 
end  i 
end  f 

PROCEDURE  SHIPDELETE; 

VAR 

idsL    :    sinHntr-J 

bed  in 

i-f    Lfiisun    -    b<3se 

then       base    J-    tliisun".  lirik 
else    beain 

last    i-    baseJ 

while  last",  link  <>     this'jn  do 

last  I-    last". link? 
last". link  :=  thisun" . 1  ink ; 
end  T 
end  T 

PROCEDURE  GETKILLS  J 

UAR 

a;-!  >  a«  »cj; »  cirf  I     iittesJerJ 

bedm 

L:ritne;<t     I-    cntbasef 
while    cntnext     v>    ml    do 
be::iii  I 

atknext     ^-    atkbusef 
L-f    en  tne;'.  t"  .  dead 
then    bediii 

c".     '•  -     round     (  en  tnext"  .  ;!POS  )  5 
ca     I-     cound     (  en  tne;-:  t"  .  apos  )  f 
while    atkne;<t      .^•    nil    do 
beam 

an  J-  round  <  a  tkne>',t"  .  ;<pos  )  » 
aa  J=  round  (  a  t!<.ne;<t"  .  apos  )  ? 
if     (<c;;    -    ax)       and    (cy    =    aa )  ) 

tiien       air-delete    (atkne«t  >  a  tkbase)  f 
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dtknext    ;=    dtknexf  .  link  f 

end?  <         if    dead         > 

CTitneKt    J-    en  tne.N  t"  .  1  ink  » 
end?  -C  while         cntnext  > 

■3^^l^'rle;<  t     I-    shipu^se^ 
while    ^ahif'iiext    <.'>    ml    do 
besiin 

i-f    sriit*ne;<t'' . -jjunk  then         shipdelete<shiprie,'<t »  shipbase)  » 

siiipnexL    J-    sJupnext"  .  1  irikJ 
end;  <  while       shipne;<t  > 

end  5 

PROCEDURE  DISFLAGAME; 

be^iii  I 

-CSfesidenL    wii«»Lne;<t> 
md  i-k     (  ptt  1 1'  twu  >  f 
pusi  Lrdns+'er? 
sccila     :  -    1  » 

dUkiii'dT       I-      fdlie* 

If-    fltbase    ■•>    nil 

then      ue^in      iiucent,    J=    f  1  tbase'^  .nuni  r       recenterf  end? 

repea  t 

'jhuwPleet     ; 
wi  i<d  tnext,  r 
until    selection    in    Z'C'r'c'li 
if    enepiaa    -    Zl 
then      Liei^in 

textoiiJ  scrncntro(cl  r  )  J  scrncnt  ro<  of  f  )  »  writelnJ       writelnf 

wr-ite       v'       Tiie    entire    attack    has    been    killed?     the    dame    will     '  )  r 
wri  telii<  'hal  t    shortly*     ')» 
writelnr  writelrif  continue; 

end 
else       besiiii 

scale    J-    i; 
•jLk'Jraf     l~    true     i 

be;<ton»  scrncnt  ro(  cl  i" )  ?  scrncnt  ro  (  of  f  >  »  writelnJ       writeln» 

wfi  tell  I  (  '  Do    'jou    wish    to    see    tiie    attack"!*'); 
writeln;  writeln;       yesnosei;       wntelnf 

case    selecLiori    o-f 
'  V  '  »  '>j  '     '.    besiin 

if    enebase    <>    ml 
tiien      besiin 

nucent  :-  enebase" .num; 
recen  ter  r 
end; 
repeat 

showattack  i 
whatnext ; 
until  selection  in  Z'C't'c'li 
end  ; 
end;     -C    case    > 
end ; 
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ei  I'J  r 

PROCEDURE    SHIPSTATUSf 

scriieii  t  ro  (  cl  r  )  »  scrnenbro  (of  f  )  J       urxtelnf 

write       ('  UNIT'r'     ':i7r'X'»'     ' '.  7  >  ' '{  '  t  '     '  J 16 »  '  nuinber         number')? 

wril-ein('       HISSILc       BOMB '  )  • 

wriLe       ('       NUMBER  SHIP  POSIT  POSIT  PIM  SOA')? 

wfiLelri('       LR-SAM         SR-3AM         HITS  HITS')? 

wri telnJ 

ji  Ill-Tie):  L     I-    ^i'iiF'L><«ser 
while    shiprie;<t    <>    nil    do 
with    shipne;<f^    do 
ueidin 

l-d^e     clc*i>i»     of 

cv  J       kind    J=    '    carrier    ' i 

uv'av    X       kind    X-    '    cruiser     '» 
deiiL     '»       kind    J-     'destroyer'; 
erid?  <         case         > 

write       inuml&f'  '  » kind»  :<f*os  J  3  J  2  r  ypos  J8  J  2f  Piiii  J6»  so^  J6  >  f 

writelii<l  rsc*m  J  7»srs<3in  J9  f  mhi  ts  X  7  »bhi  ts  JS  )  » 
shiHne;<t     X=    iinkJ 
end?  <         witi"!    /    while       > 

write  if  if  write  111  J  continue? 

tfiidf 

PROCEDURE   INTSTnTUS; 

VnR 

deiij     dia     J     iirteaerr 

beiJiri 

ic  11  icri  t  ro  (  cl  I' )  f  scrnci  it  ro(  of  f  )  >       wi'itelnf 

write       ('  UNIT  X  Y  reicjtive    to')? 

writeiri<'      '  C  24?  '  minutes  number')? 

write   ('    NUMBER    POSIT    POSIT     CARRIER     HEADING    VELOCITY'); 
writein('    ENDURANCE   MISSILES')? 
wr 1 teln  ? 

ii-0?  j«-0? 

airiieKt     I-    dlitidse? 
Willie    aii-iie:<i    <'y    nil    do 
witii    dirnext"    do 
uediri 

cjse    <acf  r-iid    of 
iiitcpt    '-    beiiin 

if    alt    >    0 
tlien    besSin 

il-i    +    l?  -it-J    +    1? 

ded     :=    decrees       (  cv;t  tcv*^  >  ;:pos  t'lipos  )  ? 

dis  I-  distance  <  cv;; »  cvy  ?  ;;f»os  >  ^^pos  )  X-    10? 

wri  te   i!  numi  7»  ;<ros  ilOJ2»yposi8I2)  ? 

write   ( dea 26 f ' / ' Tdis J 4» ' NM ' ) J 
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wriLeln(a;:(nth;7»velcta;iO»intndr5  12>3am:iO); 
end 
else       i     ; =    i    +    1 > 
end? 
end  r  <         case  > 

ax  I'l  le;-.  L    I  -    1  ink  > 
eiidf  -C  with    /    while       > 

wr-ibeln?  wi-xceliif 

w  11  Leln  (  '  Cij  r' r-eii  Uly    ao<J    haver     'f(i-u)I2»'     fmiiuers    on    board     the    carrier.') 
wciteiiiJ  wT'itein?  cuiw. 

rRQCEDuRE      ntUiSTArUSf 
vnfi 

Ijeaii  I 

icii  Id  1 1  lO  <  c  i  f  )  »  -jC  n  ici  I  L  CO  (  o-f  f  )  »       wntelnJ 

write       (■  UNIT  X  Y  relative    to ' ) J 

w  r  1  tein  (  '      '  I  24  »  '  iiiirnj  tes  '  )  » 

wi'ite       <■  NUMBER         POSIT         POSIT  C;«iRRI£R'); 

writeln('  HEnDING  (vfELQCITY  ENDURANCE')? 

wr  i  telii  f 

i     :-    0?  J     :^    Of 

dirrie;<t     J-    aii-baser 
while    airrie«t    <!!•    ml    do 
with    rfirne;-;t"    du 
bei^in 

carafe;    act' rud    of 
aew    *    bedm 

if  alt  >  0 
then  bed in 

ii-i+i;    j;=j+i; 

dea  I-  desJrees   (  cvx»cvs»  ;;pos  »  apos  )  » 
dis  i-  distance  ( cv;<  f  cvs  »!<pasF^dPos  )  *  10> 
write   (  numi  7t  ;<pos  I10;2fypost3I2)  r 
write   ( dedJ 6 r ' / ' rdisl 4» ' NM ' ) > 
wri  tell  I  ( azmthJ7fveictyJ10? intndr: 12) ? 
end 
else   1  : -  1  +  1 ? 
end  f 
eiidf        -C    Ccjse    > 
ji  ]•!  le;;  t  i  -  1  ink  i 
end?      -C    witii  /  while   > 
writein?    writein? 

write   \Currentla  'jo'j  (iave»  'r(.i~j/l2T'    early  warnind  aircraft  an')? 
writ-einv   board  the  car-rier.'>? 
write In?    write In?    continue? 
end  ? 
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PROCEDURE   RDRSTnTUSf 


VnR 


inteslerJ 


sjCci  icn  t  i"o  (cl  r )  » 


wn  be       (  ' 

CONTACT 

X 

wr  1  twill  ( 

UNIT    in 

DEAD 

w  rx  Le       (  ' 

NUMBER 

POSIT 

wr-i  Leln  ( 

CONTACT 

ALIU 

uiri  teln  » 

1    :-  Of 

Cl  1  Li  le;;  L     I- 

cribbdSe  r 

witxlid    cntiiexL     C-    ml 

■Jo 

wxbh    criunext'^    du 

L)e!:iiri 

de'J 

J-    u'earees 

( cv;<  > 

ui^ 

J==    'Jiite»ric.e 

( cv;<  f 

cdse 

ufiiu    o-f 

sc  rncnt  i'o<  of  f  )  »       wnteln) 

y  relative    bo 

/'  )  ; 

POSIT     CARRIER 
E'  )  ; 


CONTACTING' ) r 
RADAR    ' ) » 


d'iii'cli  :   kind  i- 
isrch  t       kind  t- 
fcon   ;   kind  J-  'f 
di     J   k ind  J  -  ' i 
end  J        -C    ca&e 
if  dead 

bhen  choice  I-  'ki 
elie  c^lUJ.ce  J  =^  'al 
i  :-  1  +  Ir 
wcxbti  (  nuni  J  7  » ;<Hos  J  11 
wri  belli <  kind i>  rdi tin «  7 >  ' 
if  i  mod  13-0 
biien    besiin 

wri  belrif 
ic  rnci  1 1  ro  (  cl 
wi'i  be       (  ' 
wri beln( ' 
wi-i  be       (  ' 
wri be in < ' 
wi-i  belnf 
end » 
i.iibrie!<b    1=    link; 
end  r  -C  wi  bi)    /    whi 

uinbelnf  wfibelnJ  conti 

end  > 


cvy  t  ;<POs  f  ypos  )  5 

cvy  »;!i^os»ypos)  *  lOi 

di  !•  search  '  5 
hif»  search  '  ? 
1  re  control ' J 
nberceptor  ' i 

> 


lied' 
ive  '  5 

:2f aHos;3:2»ded:3> '  /'»dis:4>'NM   ')» 
' > choice) » 


writelnf    continuef 
r)»    scpncntro< of f ) ;   wribelnf 
CONTACT      X        Y     relative  to')» 
CONTACTING    UNIT  in     DEAD  /')» 
NUMBER     POSIT    POSIT     CARRIER   ')» 
RADAR       CONTACT     ALIVE')? 


le   > 
nue  i 


PROCEDURE  selector; 


C  selec  bxon  in  C'l'..'S'»'D'»'d'y'R'»'r'f'G3'f'c»'3)  do 


ueaii  I 

while  nub 
best  in 

ac  r-nci  I  b  ro  (Lel/f     wribelnf 

I'ou  must  select  one  of  the  available  options. 


w I'i  telri 


'  ) 


write 


Please    trrj    aaam 


)  f 
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i-ead     <  selec  Lxui'i )  » 
uikJJ  <       Willie 

case    selection    of 


wri  teiiir 


'4' 
'  3  ' 
'6' 
'  7 ' 
'8' 
-  D  '  f  '  d  ' 

1^11 'J » 


iiiovecic  <  intcpt » 'move  '  )  f 

inoveidC  V  ill  tcf"  t »' launch ')  J 

inovedc  (  m  tcf  t »  '  recove  r  '  )  f 

inovedC  <  Jew  f  '  move ')  » 

inuvedC  <  aew  ?  '  1  aunch  '  )  J 

inoveac  (aew»  '  recover ')  » 

moveiaiiiH    C  'sinale'  )  i 
move'i>)ni=>    <  '  fleet '  )  J 
■Ji^^'lasiaiiie  i 
be^iri         showsta  tus  f 
case         > 


selection    1= 


end? 


PROCEDURE    MAKEOUTFILE; 

Lie:dii  t 

r-tfwi'i  te    (shpoutf  ile»  '  ABA .  2  J  shpou  tf  i  le. data '  ) » 
i-ewri  Le    (  ai  r-ou  tf  i  le  »  '  ABA.  2  J  ai  routf  i  le .  data  '  )  » 
siii>^ne;<t    I-    shipuase! 
wJiiie    sninneKt       >    mi    do 
Lies^in 

si iKOu Lf  1  le"    X~    si'upneKt" J 
put    (  siipoutf  1  le  )  > 
siiipriext    t=    siiipnext^  .  1  inkJ 
end; 
aii"ne;<t    I-    airbaseJ 
wiiile    airnext    ■■■.>    nil    do 
L>e£lii  I 

aii-ouifile"    I-    ainnext"? 
put    ( ai foutf 1 le ) » 
airrieist     l~    ai  r-nex  t"  .  1  inn.  f 
endf 
jLl<.iie;<t     *-    3tl«.basef 
uiiile    atl<.iie;<L     w-    nil    do 
Liedm 

ai  I'uu  tf  i  le"    t-    jti<rie;<t"' > 
put    ( ai routf lie ) » 
abknext    J-    atknext" . 1 ink ? 
end  f 
close    (  s^lpoutf  i  ler  lock  >  ; 
close     ( ai routf i le» lock ) ; 
end?  <  HAKEOUTFILE 


oeiSiri 

11 II  Liai  i^e  r 


<  ABA6AME  > 

doairlistsf  siiowformsJ  Lextonf 

3C  Client  ro(cl  r  )  »  serncnt  pa<  of  f  )  f  write  in  >  writein; 

writelii<'       Do    auu    wisri    to    have    the    computer    ^tep    throuah    tine    dame»')» 
writein('        ^iiowinsl    uni^    the    dispiassf     at    a    fixed     time    step?')» 
writelrif  writeliif  aesnoseif  writelnJ 

case    ^election    o-f 
'  V  '  »  ' a '     •     bedin 
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wribelrir      writelnJ 

wcitelri('    AH  times  3re  to  be  entered  as  MINUTES.'); 
wi'i  Lelnf 

write   ('   Enter  the  letisith  of  each  step  i     ')» 
len  :~  2i  tmstep  :-  reaiJint  (  len  >  » 

writelnf    uritelrif   writelnJ 

write   ('   Enter  the  total  playina  time  I     ')f 
len  I-    3»     endttme  l~    readint ( len) » 
stepthrtj  ;=  true? 
end ; 
' N ' > ' n  '  ;  bed in 

tmsLep  J=  Of 

endtime  J-  tmde-faultJ 

^Lepthpij  I-  falsef 

endr 
i:^nd ;      "C    cai»e    -'■ 
lepedt 

cntbase  I -  rn  1 » 

mark    (fntrone)?  -C  MARK    and    RELEASE    are    APPLE'S    way    to      > 

ai  fad<arciiLc ;  -C  build    dynamic    variables    and    then  > 

■ihipi'cjda  rcn  tc »  <  release    the    memory    when    they    are    no      > 

diupla^aiiie?  -C  lonsier    needed.  > 

if    not    ^tepti)r'u 
tiieri    be^iit 

^howsta tus  i 
repea  t 

rie;<teven  tsJ 
selector? 
until    selection    in    C'Q'»'a'3f 
ne;;  ts  tep» 
eriuf 
time    I-    time    +    tinstepr 
:3etkxlli.; 

ri^iiici^ti     1.  Hn  t  rone  )  ? 
f 1 tupda  te  f 
atkupdateJ 
until     (     (time    >    endtime)  or         stop     )» 

inakeoutf  iief 
;nd.  -C  ABAGAME  > 
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